Commit 77f00e46 authored by Morten Welinder's avatar Morten Welinder

Tests: add test for page setup roundtrip.

parent 8c7bdd59
......@@ -73,7 +73,8 @@ TESTS = t1000-statfuns.pl \
t6104-finfuns-ods.pl \
t6500-strings.pl \
t6501-numbers.pl \
t6501-style.pl \
t6502-style.pl \
t6503-page-setup.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/page-setup-tests.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' => "$PERL -p -e '\$_ = \"\" if m{<meta:generator>}'",
'ignore_failure' => 1);
my $xls_codepage_filter = "$PERL -p -e '\$_ = \"\" if m{<meta:user-defined meta:name=.msole:codepage.}'";
&message ("Check page-setup xls/BIFF7 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls",
'resize' => '16384x256',
'filter2' => $xls_codepage_filter ,
'ignore_failure' => 1);
&message ("Check page-setup xls/BIFF8 roundtrip.");
&test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls",
'filter2' => $xls_codepage_filter,
'ignore_failure' => 1);
&message ("Check page-setup 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