[gnumeric] Tests: add string tests for the Greek alphabet.

[Morten Welinder <mortenw src gnome org>]

commit f29f81899c1d42aba17ae7bebf96a22c5c12b766
Author: Morten Welinder <terra gnome org>
Date:   Sat Feb 22 16:04:41 2014 -0500

    Tests: add string tests for the Greek alphabet.
    
    These characters aren't representable in the default biff7 codepage,
    so we expect to see "?" instead.

 samples/string-tests.gnumeric |  Bin 2433 -> 2819 bytes
 test/t6500-strings.pl         |    8 +++++---
 2 files changed, 5 insertions(+), 3 deletions(-)
---
diff --git a/samples/string-tests.gnumeric b/samples/string-tests.gnumeric
index ae277cc..c862062 100644
Binary files a/samples/string-tests.gnumeric and b/samples/string-tests.gnumeric differ
diff --git a/test/t6500-strings.pl b/test/t6500-strings.pl
index adce22e..196dcb3 100755
--- a/test/t6500-strings.pl
+++ b/test/t6500-strings.pl
@@ -18,20 +18,22 @@ my $file = "$samples/string-tests.gnumeric";
                 'ext' => "ods",
                 '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_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b(ValueType=\"60\">Greek[ ?]+)[^ ?<]}{\$1?})'";
 
 &message ("Check string xls/BIFF7 roundtrip.");
 &test_roundtrip ($file,
                 'format' => 'Gnumeric_Excel:excel_biff7',
                 'ext' => "xls",
                 'resize' => '16384x256',
-                'filter2' => $xls_filter);
+                'filter1' => $xls_greek_filter,
+                'filter2' => $xls_codepage_filter);
 
 &message ("Check string xls/BIFF8 roundtrip.");
 &test_roundtrip ($file,
                 'format' => 'Gnumeric_Excel:excel_biff8',
                 'ext' => "xls",
-                'filter2' => $xls_filter);
+                'filter2' => $xls_codepage_filter);
 
 &message ("Check string xlsx roundtrip.");
 &test_roundtrip ($file,