Commit 776c56db authored by Morten Welinder's avatar Morten Welinder

Tests: add test for style roundtrip.

Only colours so far.
parent 0231697a
......@@ -73,6 +73,7 @@ TESTS = t1000-statfuns.pl \
t6104-finfuns-ods.pl \
t6500-strings.pl \
t6501-numbers.pl \
t6501-style.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/style-tests.gnumeric";
&message ("Check style gnumeric roundtrip.");
&test_roundtrip ($file, 'Gnumeric_XmlIO:sax', "gnm");
&message ("Check style ods roundtrip.");
&test_roundtrip ($file, 'Gnumeric_OpenCalc:odf', "ods");
&message ("Check style xls/BIFF7 roundtrip.");
&test_roundtrip ($file, 'Gnumeric_Excel:excel_biff7', "xls", '16384x256');
&message ("Check style xls/BIFF8 roundtrip.");
&test_roundtrip ($file, 'Gnumeric_Excel:excel_biff8', "xls");
&message ("Check style xlsx roundtrip.");
&test_roundtrip ($file, 'Gnumeric_Excel:xlsx', "xlsx", '1048576x16384');
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