[gnumeric] tests: hide comment related things in the biff7 tests.

[Morten Welinder <mortenw src gnome org>]

commit e8542ee27be7a8982d33f5463a9fe6bdf737c1d4
Author: Morten Welinder <terra gnome org>
Date:   Thu Sep 11 09:02:45 2014 -0400

    tests: hide comment related things in the biff7 tests.

 test/t6514-rich-text.pl |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)
---
diff --git a/test/t6514-rich-text.pl b/test/t6514-rich-text.pl
index 66840d5..71dd758 100755
--- a/test/t6514-rich-text.pl
+++ b/test/t6514-rich-text.pl
@@ -26,12 +26,18 @@ my $xls_codepage_filter = "$PERL -p -e '\$_ = \"\" if m{<meta:user-defined meta:
 # xls cannot have superscript and subscript at the same time
 my $xls_supersub_filter = "$PERL -p -e 
's{\\[superscript=1:3:5\\]\\[subscript=1:4:5\\]}{[superscript=1:3:4][subscript=1:4:5]};'";
 
+# BIFF7 cannot store comment author
+my $xls_no_author_filter = "$PERL -p -e 's{ Author=\"[^\"]*\"}{};'";
+
+# BIFF7 cannot store rich text comments
+my $xls_no_rich_comment = "$PERL -p -e 'if (/gnm:CellComment/) { s{ TextFormat=\"[^\"]*\"}{}; }'";
+
 &message ("Check rich text xls/BIFF7 roundtrip.");
 &test_roundtrip ($file,
                 'format' => 'Gnumeric_Excel:excel_biff7',
                 'ext' => "xls",
                 'resize' => '16384x256',
-                'filter1' => $xls_supersub_filter,
+                'filter1' => "$xls_supersub_filter | $xls_no_author_filter | $xls_no_rich_comment",
                 'filter2' => $xls_codepage_filter);
 
 &message ("Check rich text xls/BIFF8 roundtrip.");