Commit 67738c5e authored by Morten Welinder's avatar Morten Welinder

tests: enable subtest selection

./t6156-graph.pl --subtests ods,xlsx
./t6156-graph.pl --subtests '*,-ods,-biff7'
parent f2874ff6
......@@ -10,12 +10,12 @@ $| = 1;
@GnumericTest::ISA = qw (Exporter);
@GnumericTest::EXPORT = qw(test_sheet_calc test_valgrind
test_importer test_exporter test_roundtrip
test_ssindex sstest test_command message
test_ssindex sstest test_command message subtest
$ssconvert $sstest $ssdiff $topsrc $top_builddir
$samples $PERL);
$subtests $samples $PERL);
@GnumericTest::EXPORT_OK = qw(junkfile);
use vars qw($topsrc $top_builddir $samples $PERL $verbose);
use vars qw($topsrc $top_builddir $samples $default_subtests $subtests $PERL $verbose);
use vars qw($ssconvert $ssindex $sstest $ssdiff);
use vars qw($normalize_gnumeric);
......@@ -34,6 +34,8 @@ $sstest = "$top_builddir/src/sstest";
$ssdiff = "$top_builddir/src/ssdiff";
$normalize_gnumeric = "$PERL $topsrc/test/normalize-gnumeric";
$verbose = 0;
$default_subtests = '*';
$subtests = undef;
# -----------------------------------------------------------------------------
......@@ -145,6 +147,24 @@ sub message {
# -----------------------------------------------------------------------------
sub subtest {
my ($q) = @_;
my $res = 0;
foreach my $t (split (',', $subtests || $default_subtests)) {
if ($t eq '*' || $t eq $q) {
$res = 1;
next;
} elsif ($t eq '-*' || $t eq "-$q") {
$res = 0;
next;
}
}
return $res;
}
# -----------------------------------------------------------------------------
sub test_command {
my ($cmd,$test) = @_;
......@@ -675,9 +695,17 @@ $ENV{'LC_ALL'} = 'C';
# libgsf listens for this
delete $ENV{'WINDOWS_LANGUAGE'};
if (@ARGV && $ARGV[0] eq '--verbose') {
$verbose = 1;
scalar shift @ARGV;
while (1) {
if (@ARGV && $ARGV[0] eq '--verbose') {
$verbose = 1;
scalar shift @ARGV;
next;
} elsif (@ARGV > 1 && $ARGV[0] eq '--subtests') {
scalar shift @ARGV;
$subtests = shift @ARGV;
} else {
last;
}
}
1;
......@@ -7,35 +7,45 @@ use GnumericTest;
my $file = "$samples/string-tests.gnumeric";
&message ("Check string gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
&message ("Check string ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("gnumeric")) {
&message ("Check string gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
if (&subtest ("ods")) {
&message ("Check string ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
my $xls_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b(ValueType=\"60\">Greek[ ?]+)[^ ?<]}{\$1?})'";
&message ("Check string xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter1' => $xls_greek_filter,
'filter2' => 'std:drop_codepage');
&message ("Check string xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
&message ("Check string xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("biff7")) {
&message ("Check string xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter1' => $xls_greek_filter,
'filter2' => 'std:drop_codepage');
}
if (&subtest ("biff8")) {
&message ("Check string xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
}
if (&subtest ("xlsx")) {
&message ("Check string xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,37 +7,49 @@ use GnumericTest;
my $file = "$samples/number-tests.gnumeric";
&message ("Check that $file evaluates correctly.");
&test_sheet_calc ($file, "F1", sub { /TRUE/ });
&message ("Check number gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
&message ("Check number ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
&message ("Check number xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
&message ("Check number xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
&message ("Check number xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("eval")) {
&message ("Check that $file evaluates correctly.");
&test_sheet_calc ($file, "F1", sub { /TRUE/ });
}
if (&subtest ("gnumeric")) {
&message ("Check number gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
if (&subtest ("ods")) {
&message ("Check number ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
if (&subtest ("biff7")) {
&message ("Check number xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
}
if (&subtest ("biff8")) {
&message ("Check number xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
}
if (&subtest ("xlsx")) {
&message ("Check number xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,16 +7,20 @@ use GnumericTest;
my $file = "$samples/style-tests.gnumeric";
&message ("Check style gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
&message ("Check style ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("gnumeric")) {
&message ("Check style gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
if (&subtest ("ods")) {
&message ("Check style ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
# Biff7 only handles a few fixed rotations.
my $xls_rotation_filter = "$PERL -p -e 's{\\b(Rotation)=\"315\"}{\$1=\"270\"}; s{\\b(Rotation)=\"45\"}{\$1=\"0\"};'";
......@@ -27,27 +31,33 @@ my $xls_diagonal_filter = "$PERL -p -e 'if (m{<gnm:StyleBorder>} .. m{</gnm:Styl
# Biff7 doesn't store indentation
my $xls_indent_filter = "$PERL -p -e 's{\\bIndent=\"[1-9]\\d*\"}{Indent=\"0\"};'";
# Our patterns 19-24 do not exists in xls
# Our patterns 19-24 do not exist in xls
my $xls_pattern_filter = "$PERL -p -e 'use English; my \%m=(19,14,20,7,21,4,22,4,23,2,24,1); if (m{\\bShade=\"(\\d+)\"} && (\$n = \$m{\$1})) { \$_ = \"\${PREMATCH}Shade=\\\"\$n\\\"\${POSTMATCH}\"; }'";
&message ("Check style xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter1' => "$xls_rotation_filter | $xls_pattern_filter | $xls_diagonal_filter | $xls_indent_filter",
'filter2' => 'std:drop_codepage');
&message ("Check style xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter1' => $xls_pattern_filter,
'filter2' => 'std:drop_codepage');
&message ("Check style xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384',
'filter1' => $xls_pattern_filter);
if (&subtest ("biff7")) {
&message ("Check style xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter1' => "$xls_rotation_filter | $xls_pattern_filter | $xls_diagonal_filter | $xls_indent_filter",
'filter2' => 'std:drop_codepage');
}
if (&subtest ("biff8")) {
&message ("Check style xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter1' => $xls_pattern_filter,
'filter2' => 'std:drop_codepage');
}
if (&subtest ("xlsx")) {
&message ("Check style xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384',
'filter1' => $xls_pattern_filter);
}
......@@ -7,32 +7,42 @@ use GnumericTest;
my $file = "$samples/page-setup-tests.gnumeric";
&message ("Check page-setup gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
if (&subtest ("gnumeric")) {
&message ("Check page-setup gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
&message ("Check page-setup ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("ods")) {
&message ("Check page-setup ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
&message ("Check page-setup xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
if (&subtest ("biff7")) {
&message ("Check page-setup xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
}
&message ("Check page-setup xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
if (&subtest ("biff8")) {
&message ("Check page-setup xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
}
&message ("Check page-setup xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("xlsx")) {
&message ("Check page-setup xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,32 +7,42 @@ use GnumericTest;
my $file = "$samples/formula-tests.gnumeric";
&message ("Check formula gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
if (&subtest ("gnumeric")) {
&message ("Check formula gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
&message ("Check formula ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("ods")) {
&message ("Check formula ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
&message ("Check formula xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
if (&subtest ("biff7")) {
&message ("Check formula xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
}
&message ("Check formula xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
if (&subtest ("biff8")) {
&message ("Check formula xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
}
&message ("Check formula xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("xlsx")) {
&message ("Check formula xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,34 +7,44 @@ use GnumericTest;
my $file = "$samples/colrow-tests.gnumeric";
&message ("Check col/row info gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
if (&subtest ("gnumeric")) {
&message ("Check col/row info gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
&message ("Check col/row info ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("ods")) {
&message ("Check col/row info ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
&message ("Check col/row info xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
if (&subtest ("biff7")) {
&message ("Check col/row info xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
}
&message ("Check col/row info xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
if (&subtest ("biff8")) {
&message ("Check col/row info xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage',
'ignore_failure' => 1);
}
&message ("Check col/row info xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("xlsx")) {
&message ("Check col/row info xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,35 +7,45 @@ use GnumericTest;
my $file = "$samples/cell-comment-tests.gnumeric";
&message ("Check cell-comment gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
&message ("Check cell-comment ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("gnumeric")) {
&message ("Check cell-comment gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
if (&subtest ("ods")) {
&message ("Check cell-comment ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
my $xls_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b(Text=\"Greek[ ?]+)[^ ?\"]}{\$1?})'";
&message ("Check cell-comment xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter1' => "$xls_greek_filter | std:no_author",
'filter2' => 'std:drop_codepage');
&message ("Check cell-comment xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
&message ("Check cell-comment xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("biff7")) {
&message ("Check cell-comment xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter1' => "$xls_greek_filter | std:no_author",
'filter2' => 'std:drop_codepage');
}
if (&subtest ("biff8")) {
&message ("Check cell-comment xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
}
if (&subtest ("xlsx")) {
&message ("Check cell-comment xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,32 +7,42 @@ use GnumericTest;
my $file = "$samples/split-panes-tests.gnumeric";
&message ("Check split-panes gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
if (&subtest ("gnumeric")) {
&message ("Check split-panes gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
&message ("Check split-panes ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("ods")) {
&message ("Check split-panes ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
&message ("Check split-panes xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
if (&subtest ("biff7")) {
&message ("Check split-panes xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
}
&message ("Check split-panes xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
if (&subtest ("biff8")) {
&message ("Check split-panes xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
}
&message ("Check split-panes xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("xlsx")) {
&message ("Check split-panes xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,32 +7,42 @@ use GnumericTest;
my $file = "$samples/sheet-formatting-tests.gnumeric";
&message ("Check sheet-formatting gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
if (&subtest ("gnumeric")) {
&message ("Check sheet-formatting gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
&message ("Check sheet-formatting ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
if (&subtest ("ods")) {
&message ("Check sheet-formatting ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator');
}
&message ("Check sheet-formatting xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
if (&subtest ("biff7")) {
&message ("Check sheet-formatting xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
}
&message ("Check sheet-formatting xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
if (&subtest ("biff8")) {
&message ("Check sheet-formatting xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => 'std:drop_codepage');
}
&message ("Check sheet-formatting xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
if (&subtest ("xlsx")) {
&message ("Check sheet-formatting xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384');
}
......@@ -7,35 +7,45 @@ use GnumericTest;
my $file = "$samples/validation-tests.gnumeric";
&message ("Check validation gnumeric roundtrip.");
&test_roundtrip ($file,