Commit f5f35cf9 authored by Morten Welinder's avatar Morten Welinder

Style test: silence biff7 complaints about 45 and -45 degree rotation.

The format cannot handle those.
parent 2d11a9fe
...@@ -18,21 +18,23 @@ my $file = "$samples/style-tests.gnumeric"; ...@@ -18,21 +18,23 @@ my $file = "$samples/style-tests.gnumeric";
'ext' => "ods", 'ext' => "ods",
'filter2' => "$PERL -p -e '\$_ = \"\" if m{<meta:generator>}'"); 'filter2' => "$PERL -p -e '\$_ = \"\" if m{<meta:generator>}'");
my $xls_filter = "$PERL -p -e '\$_ = \"\" if m{<meta:user-defined meta:name=.msole:codepage.}'"; my $xls_codepage_filter = "$PERL -p -e '\$_ = \"\" if m{<meta:user-defined meta:name=.msole:codepage.}'";
my $xls_rotation_filter = "$PERL -p -e 's{\\b(Rotation)=\"315\"}{\$1=\"270\"}; s{\\b(Rotation)=\"45\"}{\$1=\"0\"};'";
&message ("Check style xls/BIFF7 roundtrip."); &message ("Check style xls/BIFF7 roundtrip.");
&test_roundtrip ($file, &test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff7', 'format' => 'Gnumeric_Excel:excel_biff7',
'ext' => "xls", 'ext' => "xls",
'resize' => '16384x256', 'resize' => '16384x256',
'filter2' => $xls_filter, 'filter1' => $xls_rotation_filter,
'filter2' => $xls_codepage_filter ,
'ignore_failure' => 1); 'ignore_failure' => 1);
&message ("Check style xls/BIFF8 roundtrip."); &message ("Check style xls/BIFF8 roundtrip.");
&test_roundtrip ($file, &test_roundtrip ($file,
'format' => 'Gnumeric_Excel:excel_biff8', 'format' => 'Gnumeric_Excel:excel_biff8',
'ext' => "xls", 'ext' => "xls",
'filter2' => $xls_filter, 'filter2' => $xls_codepage_filter,
'ignore_failure' => 1); 'ignore_failure' => 1);
&message ("Check style xlsx roundtrip."); &message ("Check style xlsx roundtrip.");
......
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