[gnumeric] Tests: more format guessing tests.

[Morten Welinder <mortenw src gnome org>]

commit b2da29afea81f807380175df938ddb590ecf8a53
Author: Morten Welinder <terra gnome org>
Date:   Fri May 20 13:15:35 2016 -0400

    Tests: more format guessing tests.

 test/t5801-cvs-number.pl |   28 ++++++++++++++++++++++++++++
 1 files changed, 28 insertions(+), 0 deletions(-)
---
diff --git a/test/t5801-cvs-number.pl b/test/t5801-cvs-number.pl
index 7edc759..1cf997a 100755
--- a/test/t5801-cvs-number.pl
+++ b/test/t5801-cvs-number.pl
@@ -15,6 +15,13 @@ use GnumericTest;
 DATA
 
 &test_csv_format_guessing
+    (data => <<DATA, format => sub { return $_ eq '0.00'; }, decimal => ',' );
+"Values"
+"123,45"
+"1,45"
+DATA
+
+&test_csv_format_guessing
     (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => '.' );
 "Values"
 "123.456"
@@ -22,6 +29,27 @@ DATA
 DATA
 
 &test_csv_format_guessing
+    (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => ',' );
+"Values"
+"123,456"
+"1,45"
+DATA
+
+&test_csv_format_guessing
+    (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => '.', thousand => ',' );
+"Values"
+"123,456"
+"1.45"
+DATA
+
+&test_csv_format_guessing
+    (data => <<DATA, format => sub { return $_ eq 'General'; }, decimal => ',', thousand => '.' );
+"Values"
+"123.456"
+"1,45"
+DATA
+
+&test_csv_format_guessing
     (data => <<DATA, format => sub { return $_ eq 'General'; } );
 "Values"
 "123.456"