Author: turnstep
Date: Sun Jan 6 22:08:54 2008
New Revision: 10491
Modified:
DBD-Pg/trunk/t/03dbmethod.t
Log:
Quick test of CamelCase columns for column_info.
Modified: DBD-Pg/trunk/t/03dbmethod.t
==============================================================================
--- DBD-Pg/trunk/t/03dbmethod.t (original)
+++ DBD-Pg/trunk/t/03dbmethod.t Sun Jan 6 22:08:54 2008
@@ -18,7 +18,7 @@
$|=1;
if (defined $ENV{DBI_DSN}) {
- plan tests => 203;
+ plan tests => 204;
}
else {
plan skip_all => 'Cannot run test unless DBI_DSN is defined. See the
README file';
@@ -414,6 +414,13 @@
is( $result->{IS_NULLABLE}, 'NO', 'DB handle method "column_info" returns
proper IS_NULLABLE');
is( $result->{pg_type}, 'integer', 'DB handle method "column_info" returns
proper pg_type');
+# Make sure we handle CamelCase Column Correctly
+$sth = $dbh->column_info('','','dbd_pg_test','CaseTest');
+$result = $sth->fetchall_arrayref({})->[0];
+$t = qq{DB handle method "column_info" works with non-lowercased columns};
+is( $result->{COLUMN_NAME}, q{"CaseTest"}, $t);
+
+
#
# Test of the "primary_key_info" database handle method
#
