From 46929ef1cb11ef3468ad55ae3b0a0cc8c090d59d Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 17 Jun 2010 02:08:00 +0000
Subject: [PATCH] add a test

---
 t/rt_44891_strings_look_like_numbers.t | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 t/rt_44891_strings_look_like_numbers.t

diff --git a/t/rt_44891_strings_look_like_numbers.t b/t/rt_44891_strings_look_like_numbers.t
new file mode 100644
index 0000000..a2c3fe3
--- /dev/null
+++ b/t/rt_44891_strings_look_like_numbers.t
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+    $|  = 1;
+    $^W = 1;
+}
+
+use t::lib::Test;
+use Test::More;
+use Test::NoWarnings;
+
+plan tests => 9;
+
+# 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)');
+    $dbh->do('insert into foo values(?)', undef, $value);
+    my ($got) = $dbh->selectrow_array('select string from foo where string = ?', undef, $value);
+    ok defined $got && $got eq $value, "got: $got value: $value";
+}