2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $file = "$samples/object-tests.gnumeric";
9 $GnumericTest::default_subtests
= '*,-biff7';
12 if (&subtest
("gnumeric")) {
13 &message
("Check object gnumeric roundtrip.");
14 &test_roundtrip
($file,
15 'format' => 'Gnumeric_XmlIO:sax',
19 if (&subtest
("ods")) {
20 &message
("Check object ods roundtrip.");
21 &test_roundtrip
($file,
22 'format' => 'Gnumeric_OpenCalc:odf',
24 'filter2' => 'std:drop_generator',
25 'ignore_failure' => 1);
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',
34 'resize' => '16384x256',
35 'filter2' => 'std:drop_codepage');
38 if (&subtest
("biff8")) {
39 &message
("Check object xls/BIFF8 roundtrip.");
40 &test_roundtrip
($file,
41 'format' => 'Gnumeric_Excel:excel_biff8',
43 'filter0' => 'std:noframewidget',
44 'filter2' => 'std:drop_codepage',
45 'ignore_failure' => 1);
48 if (&subtest
("xlsx")) {
49 &message
("Check object xlsx roundtrip.");
50 &test_roundtrip
($file,
51 'format' => 'Gnumeric_Excel:xlsx',
53 'filter0' => 'std:noframewidget',
54 'filter' => 'std:nocomboasindex',
55 'resize' => '1048576x16384',
56 'ignore_failure' => 1);