[gnumeric] Tests: test number roundtrips.

[Morten Welinder <mortenw src gnome org>]

commit 7b5f5c3c6d38b05de5e699d5314c0b5f545e351b
Author: Morten Welinder <terra gnome org>
Date:   Mon Feb 17 13:09:30 2014 -0500

    Tests: test number roundtrips.

 NEWS                          |    1 +
 samples/number-tests.gnumeric |  Bin 0 -> 2645 bytes
 test/Makefile.am              |    1 +
 test/t6501-numbers.pl         |   20 ++++++++++++++++++++
 4 files changed, 22 insertions(+), 0 deletions(-)
---
diff --git a/NEWS b/NEWS
index f82b634..f3a7d19 100644
--- a/NEWS
+++ b/NEWS
@@ -9,6 +9,7 @@ Jean:
 
 Morten:
        * Fix BIFF7 import of long strings.  [#724399]
+       * Improve testing.
 
 --------------------------------------------------------------------------
 Gnumeric 1.12.11
diff --git a/samples/number-tests.gnumeric b/samples/number-tests.gnumeric
new file mode 100644
index 0000000..01de68b
Binary files /dev/null and b/samples/number-tests.gnumeric differ
diff --git a/test/Makefile.am b/test/Makefile.am
index 61b5bb6..01c6737 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -72,6 +72,7 @@ TESTS =       t1000-statfuns.pl                       \
        t6103-lookfuns-ods.pl                   \
        t6104-finfuns-ods.pl                    \
        t6500-strings.pl                        \
+       t6501-numbers.pl                        \
        t7000-goal-seek.pl                      \
        t7100-solver-blend.pl                   \
        t7101-solver-afiro.pl                   \
diff --git a/test/t6501-numbers.pl b/test/t6501-numbers.pl
new file mode 100755
index 0000000..bce1f3d
--- /dev/null
+++ b/test/t6501-numbers.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+my $file = "$samples/number-tests.gnumeric";
+
+&message ("Check string ods roundtrip.");
+&test_roundtrip ($file, 'Gnumeric_OpenCalc:odf', "ods");
+
+&message ("Check string xls/BIFF7 roundtrip.");
+&test_roundtrip ($file, 'Gnumeric_Excel:excel_biff7', "xls");
+
+&message ("Check string xls/BIFF8 roundtrip.");
+&test_roundtrip ($file, 'Gnumeric_Excel:excel_biff8', "xls");
+
+&message ("Check string xlsx roundtrip.");
+&test_roundtrip ($file, 'Gnumeric_Excel:xlsx', "xlsx");