Update Spanish translation
[gnumeric.git] / test / t6506-cell-comments.pl
blobd61ecc179bf8ced8b668aa4bb8779dc2aab13d87
1 #!/usr/bin/perl -w
2 # -----------------------------------------------------------------------------
4 use strict;
5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6 use GnumericTest;
8 my $file = "$samples/cell-comment-tests.gnumeric";
10 if (&subtest ("gnumeric")) {
11 &message ("Check cell-comment gnumeric roundtrip.");
12 &test_roundtrip ($file,
13 'format' => 'Gnumeric_XmlIO:sax',
14 'ext' => "gnm");
17 if (&subtest ("ods")) {
18 &message ("Check cell-comment ods roundtrip.");
19 &test_roundtrip ($file,
20 'format' => 'Gnumeric_OpenCalc:odf',
21 'ext' => "ods",
22 'filter2' => 'std:drop_generator');
25 my $xls_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b(Text=\"Greek[ ?]+)[^ ?\"]}{\$1?})'";
27 if (&subtest ("biff7")) {
28 &message ("Check cell-comment xls/BIFF7 roundtrip.");
29 &test_roundtrip ($file,
30 'format' => 'Gnumeric_Excel:excel_biff7',
31 'ext' => "xls",
32 'resize' => '16384x256',
33 'filter1' => "$xls_greek_filter | std:no_author",
34 'filter2' => 'std:drop_codepage');
37 if (&subtest ("biff8")) {
38 &message ("Check cell-comment xls/BIFF8 roundtrip.");
39 &test_roundtrip ($file,
40 'format' => 'Gnumeric_Excel:excel_biff8',
41 'ext' => "xls",
42 'filter2' => 'std:drop_codepage');
45 if (&subtest ("xlsx")) {
46 &message ("Check cell-comment xlsx roundtrip.");
47 &test_roundtrip ($file,
48 'format' => 'Gnumeric_Excel:xlsx',
49 'ext' => "xlsx",
50 'resize' => '1048576x16384');