[gnumeric] T6502: add tests for more underline types and indent.

[Morten Welinder <mortenw src gnome org>]

commit 790fa167dea012ee706d79e2964c75ef24f0934c
Author: Morten Welinder <terra gnome org>
Date:   Tue Mar 18 11:44:39 2014 -0400

    T6502: add tests for more underline types and indent.

 samples/style-tests.gnumeric |  Bin 5357 -> 5530 bytes
 test/t6502-styles.pl         |    5 ++++-
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/samples/style-tests.gnumeric b/samples/style-tests.gnumeric
index 7164e81..31f3fdd 100644
Binary files a/samples/style-tests.gnumeric and b/samples/style-tests.gnumeric differ
diff --git a/test/t6502-styles.pl b/test/t6502-styles.pl
index 5c52ff3..691a954 100755
--- a/test/t6502-styles.pl
+++ b/test/t6502-styles.pl
@@ -26,6 +26,9 @@ my $xls_rotation_filter = "$PERL -p -e 's{\\b(Rotation)=\"315\"}{\$1=\"270\"}; s
 # Biff7 has no diagonals patterns.
 my $xls_diagonal_filter = "$PERL -p -e 'if (m{<gnm:StyleBorder>} .. m{</gnm:StyleBorder>}) { if 
(m{gnm:(Rev-)?Diagonal}) { \$_=\"\"; } else { \$any++; } \$save .= \$_; if (m{</gnm:StyleBorder>}) { print 
\$save if \$any>2; \$any = 0; \$save = \"\"; } \$_=\"\"; }'";
 
+# Biff7 doesn't store indentation
+my $xls_indent_filter = "$PERL -p -e 's{\\bIndent=\"[1-9]\\d*\"}{Indent=\"0\"};'";
+
 # Our patterns 19-24 do not exists in xls
 my $xls_pattern_filter = "$PERL -p -e 'use English; my \%m=(19,14,20,7,21,4,22,4,23,2,24,1); if 
(m{\\bShade=\"(\\d+)\"} && (\$n = \$m{\$1})) { \$_ = \"\${PREMATCH}Shade=\\\"\$n\\\"\${POSTMATCH}\"; }'";
 
@@ -34,7 +37,7 @@ my $xls_pattern_filter = "$PERL -p -e 'use English; my \%m=(19,14,20,7,21,4,22,4
                 'format' => 'Gnumeric_Excel:excel_biff7',
                 'ext' => "xls",
                 'resize' => '16384x256',
-                'filter1' => "$xls_rotation_filter | $xls_pattern_filter | $xls_diagonal_filter",
+                'filter1' => "$xls_rotation_filter | $xls_pattern_filter | $xls_diagonal_filter | 
$xls_indent_filter",
                 'filter2' => $xls_codepage_filter);
 
 &message ("Check style xls/BIFF8 roundtrip.");