test/t6513-merges.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 # NOTE: this is an import/export tests.  We do not look at what is done
   5 # with the formats in the test files.
   6
   7 use strict;
   8 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   9 use GnumericTest;
  10
  11 my $file = "$samples/merge-tests.gnumeric";
  12
  13 if (&subtest ("gnumeric")) {
  14     &message ("Check merges gnumeric roundtrip.");
  15     &test_roundtrip ($file,
  16                      'format' => 'Gnumeric_XmlIO:sax',
  17                      'ext' => "gnm");
  18 }
  19
  20 if (&subtest ("ods")) {
  21     &message ("Check merges ods roundtrip.");
  22     &test_roundtrip ($file,
  23                      'format' => 'Gnumeric_OpenCalc:odf',
  24                      'ext' => "ods",
  25                      'filter2' => 'std:drop_generator');
  26 }
  27
  28 if (&subtest ("biff7")) {
  29     &message ("Check merges xls/BIFF7 roundtrip.");
  30     &test_roundtrip ($file,
  31                      'format' => 'Gnumeric_Excel:excel_biff7',
  32                      'ext' => "xls",
  33                      'resize' => '16384x256',
  34                      'filter2' => 'std:drop_codepage');
  35 }
  36
  37 if (&subtest ("biff8")) {
  38     &message ("Check merges xls/BIFF8 roundtrip.");
  39     &test_roundtrip ($file,
  40                      'format' => 'Gnumeric_Excel:excel_biff8',
  41                      'ext' => "xls",
  42                      'filter2' => 'std:drop_codepage');
  43 }
  44
  45 if (&subtest ("xlsx")) {
  46     &message ("Check merges xlsx roundtrip.");
  47     &test_roundtrip ($file,
  48                      'format' => 'Gnumeric_Excel:xlsx',
  49                      'ext' => "xlsx",
  50                      'resize' => '1048576x16384');
  51 }