2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $file = "$samples/number-tests.gnumeric";
10 if (&subtest
("eval")) {
11 &message
("Check that $file evaluates correctly.");
12 &test_sheet_calc
($file, "F1", sub { /TRUE/ });
15 if (&subtest
("gnumeric")) {
16 &message
("Check number gnumeric roundtrip.");
17 &test_roundtrip
($file,
18 'format' => 'Gnumeric_XmlIO:sax',
22 if (&subtest
("ods")) {
23 &message
("Check number ods roundtrip.");
24 &test_roundtrip
($file,
25 'format' => 'Gnumeric_OpenCalc:odf',
27 'filter2' => 'std:drop_generator');
30 if (&subtest
("biff7")) {
31 &message
("Check number xls/BIFF7 roundtrip.");
32 &test_roundtrip
($file,
33 'format' => 'Gnumeric_Excel:excel_biff7',
35 'resize' => '16384x256',
36 'filter2' => 'std:drop_codepage',
37 'ignore_failure' => 1);
40 if (&subtest
("biff8")) {
41 &message
("Check number xls/BIFF8 roundtrip.");
42 &test_roundtrip
($file,
43 'format' => 'Gnumeric_Excel:excel_biff8',
45 'filter2' => 'std:drop_codepage',
46 'ignore_failure' => 1);
49 if (&subtest
("xlsx")) {
50 &message
("Check number xlsx roundtrip.");
51 &test_roundtrip
($file,
52 'format' => 'Gnumeric_Excel:xlsx',
54 'resize' => '1048576x16384');