[svn:DBD-mysql] r8508 - DBD-mysql/trunk/t

[jimw]

Author: jimw
Date: Tue Jan  2 18:44:04 2007
New Revision: 8508

Modified:
   DBD-mysql/trunk/t/40types.t

Log:
Add regression test for [rt.cpan.org #19212] Mysql Unsigned Integer Fields


Modified: DBD-mysql/trunk/t/40types.t
==============================================================================
--- DBD-mysql/trunk/t/40types.t	(original)
+++ DBD-mysql/trunk/t/40types.t	Tue Jan  2 18:44:04 2007
@@ -1,7 +1,7 @@
 #!perl -w
 # vim: ft=perl
 
-use Test::More tests => 16;
+use Test::More tests => 20;
 use DBI;
 use strict;
 $|= 1;
@@ -52,4 +52,14 @@
 
 ok($dbh->do(qq{DROP TABLE t1}), "cleaning up");
 
+#
+# [rt.cpan.org #19212] Mysql Unsigned Integer Fields
+#
+ok($dbh->do(qq{CREATE TABLE t1 (num INT UNSIGNED)}), "creating table");
+ok($dbh->do(qq{INSERT INTO t1 VALUES (0),(4294967295)}), "loading data");
+
+is_deeply($dbh->selectall_arrayref("SELECT * FROM t1"), [ ['0'],  ['4294967295'] ]);
+
+ok($dbh->do(qq{DROP TABLE t1}), "cleaning up");
+
 $dbh->disconnect();