test/t6518-objects.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 my $file = "$samples/object-tests.gnumeric";
   9 $GnumericTest::default_subtests = '*,-biff7';
  10
  11
  12 if (&subtest ("gnumeric")) {
  13     &message ("Check object gnumeric roundtrip.");
  14     &test_roundtrip ($file,
  15                      'format' => 'Gnumeric_XmlIO:sax',
  16                      'ext' => "gnm");
  17 }
  18
  19 if (&subtest ("ods")) {
  20     &message ("Check object ods roundtrip.");
  21     &test_roundtrip ($file,
  22                      'format' => 'Gnumeric_OpenCalc:odf',
  23                      'ext' => "ods",
  24                      'filter2' => 'std:drop_generator',
  25                      'ignore_failure' => 1);
  26 }
  27
  28 if (&subtest ("biff7")) {
  29     # We don't save objects, so don't test.
  30     &message ("Check object xls/BIFF7 roundtrip.");
  31     &test_roundtrip ($file,
  32                      'format' => 'Gnumeric_Excel:excel_biff7',
  33                      'ext' => "xls",
  34                      'resize' => '16384x256',
  35                      'filter2' => 'std:drop_codepage');
  36 }
  37
  38 if (&subtest ("biff8")) {
  39     &message ("Check object xls/BIFF8 roundtrip.");
  40     &test_roundtrip ($file,
  41                      'format' => 'Gnumeric_Excel:excel_biff8',
  42                      'ext' => "xls",
  43                      'filter0' => 'std:noframewidget',
  44                      'filter2' => 'std:drop_codepage',
  45                      'ignore_failure' => 1);
  46 }
  47
  48 if (&subtest ("xlsx")) {
  49     &message ("Check object xlsx roundtrip.");
  50     &test_roundtrip ($file,
  51                      'format' => 'Gnumeric_Excel:xlsx',
  52                      'ext' => "xlsx",
  53                      'filter0' => 'std:noframewidget',
  54                      'filter' => 'std:nocomboasindex',
  55                      'resize' => '1048576x16384',
  56                      'ignore_failure' => 1);
  57 }