Commit dbb38c8a authored by Morten Welinder's avatar Morten Welinder

tests: add tests for sheet objects.

So far passive objects only.  That will change.
parent 13fc9451
......@@ -94,6 +94,7 @@ TESTS = t1000-statfuns.pl \
t6515-cond-format.pl \
t6516-graph.pl \
t6517-names.pl \
t6518-objects.pl \
t7000-goal-seek.pl \
t7100-solver-blend.pl \
t7101-solver-afiro.pl \
......
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "$samples/object-tests.gnumeric";
$GnumericTest::default_subtests = '*,-biff7';
if (&subtest ("gnumeric")) {
&message ("Check object gnumeric roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_XmlIO:sax',
'ext' => "gnm");
}
if (&subtest ("ods")) {
&message ("Check object ods roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_OpenCalc:odf',
'ext' => "ods",
'filter2' => 'std:drop_generator',
'ignore_failure' => 1);
}
if (&subtest ("biff7")) {
# We don't save objects, so don't test.
&message ("Check object xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => 'std:drop_codepage');
}
if (&subtest ("biff8")) {
&message ("Check object 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 object xlsx roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:xlsx',
'ext' => "xlsx",
'resize' => '1048576x16384',
'ignore_failure' => 1);
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment