2 # -----------------------------------------------------------------------------
4 # NOTE: this is an import/export tests. We do not look at what is done
5 # with the formats in the test files.
8 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
11 my $file = "$samples/rich-text-tests.gnumeric";
13 if (&subtest
("gnumeric")) {
14 &message
("Check rich text gnumeric roundtrip.");
15 &test_roundtrip
($file,
16 'format' => 'Gnumeric_XmlIO:sax',
20 if (&subtest
("ods")) {
21 &message
("Check rich text ods roundtrip.");
22 &test_roundtrip
($file,
23 'format' => 'Gnumeric_OpenCalc:odf',
25 'filter2' => 'std:drop_generator');
28 if (&subtest
("biff7")) {
29 &message
("Check rich text xls/BIFF7 roundtrip.");
30 &test_roundtrip
($file,
31 'format' => 'Gnumeric_Excel:excel_biff7',
33 'resize' => '16384x256',
34 'filter1' => "std:supersub | std:no_author | std:no_rich_comment",
35 'filter2' => 'std:drop_codepage');
38 if (&subtest
("biff8")) {
39 &message
("Check rich text xls/BIFF8 roundtrip.");
40 &test_roundtrip
($file,
41 'format' => 'Gnumeric_Excel:excel_biff8',
43 'filter1' => 'std:supersub',
44 'filter2' => 'std:drop_codepage');
47 if (&subtest
("xlsx")) {
48 &message
("Check rich text xlsx roundtrip.");
49 &test_roundtrip
($file,
50 'format' => 'Gnumeric_Excel:xlsx',
52 'resize' => '1048576x16384',
53 'filter1' => 'std:supersub');