test/t6514-rich-text.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/rich-text-tests.gnumeric";
  12
  13 if (&subtest ("gnumeric")) {
  14     &message ("Check rich text gnumeric roundtrip.");
  15     &test_roundtrip ($file,
  16                      'format' => 'Gnumeric_XmlIO:sax',
  17                      'ext' => "gnm");
  18 }
  19
  20 if (&subtest ("ods")) {
  21     &message ("Check rich text 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 rich text xls/BIFF7 roundtrip.");
  30     &test_roundtrip ($file,
  31                      'format' => 'Gnumeric_Excel:excel_biff7',
  32                      'ext' => "xls",
  33                      'resize' => '16384x256',
  34                      'filter1' => "std:supersub | std:no_author | std:no_rich_comment",
  35                      'filter2' => 'std:drop_codepage');
  36 }
  37
  38 if (&subtest ("biff8")) {
  39     &message ("Check rich text xls/BIFF8 roundtrip.");
  40     &test_roundtrip ($file,
  41                      'format' => 'Gnumeric_Excel:excel_biff8',
  42                      'ext' => "xls",
  43                      'filter1' => 'std:supersub',
  44                      'filter2' => 'std:drop_codepage');
  45 }
  46
  47 if (&subtest ("xlsx")) {
  48     &message ("Check rich text xlsx roundtrip.");
  49     &test_roundtrip ($file,
  50                      'format' => 'Gnumeric_Excel:xlsx',
  51                      'ext' => "xlsx",
  52                      'resize' => '1048576x16384',
  53                      'filter1' => 'std:supersub');
  54 }