From d356b70c3fb5159903d0f3de9fb63aa4b1f6c13b Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 17 Jun 2010 02:22:11 +0000
Subject: [PATCH] more tests

---
 t/rt_44891_strings_look_like_numbers.t | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/t/rt_44891_strings_look_like_numbers.t b/t/rt_44891_strings_look_like_numbers.t
index a2c3fe3..a6f3576 100644
--- a/t/rt_44891_strings_look_like_numbers.t
+++ b/t/rt_44891_strings_look_like_numbers.t
@@ -10,10 +10,17 @@ use t::lib::Test;
 use Test::More;
 use Test::NoWarnings;
 
-plan tests => 9;
+my @values = qw/
+    0 1 1.0 1.0e+001 0000 01010101 10010101
+    0000002100000517
+    0000002200000517
+    0000001e00000517
+    00002.000
+/;
+
+plan tests => @values * 2 + 1;
 
 # no type specification
-my @values = qw/ 0 1 1.0 1.0e+001 /;
 for my $value (@values) {
     my $dbh = connect_ok( RaiseError => 1, AutoCommit => 1 );
     $dbh->do('create table foo (string)');