1 files changed, 32 insertions, 0 deletions
diff --git a/t/20meta.t b/t/20meta.t
new file mode 100644
index 0000000..a8d609e
--- /dev/null
+++ b/t/20meta.t
@@ -0,0 +1,32 @@
+#!perl -w
+
+use strict;
+use Test::More tests => 8;
+
+$|=1;
+$^W=1;
+
+BEGIN { use_ok( 'DBI', ':sql_types' ) }
+BEGIN { use_ok( 'DBI::DBD::Metadata' ) } # just to check for syntax errors etc
+
+my $dbh = DBI->connect("dbi:ExampleP:.","","", { FetchHashKeyName => 'NAME_lc' })
+	or die "Unable to connect to ExampleP driver: $DBI::errstr";
+
+isa_ok($dbh, 'DBI::db');
+#$dbh->trace(3);
+
+#use Data::Dumper;
+#print Dumper($dbh->type_info_all);
+#print Dumper($dbh->type_info);
+#print Dumper($dbh->type_info(DBI::SQL_INTEGER));
+
+my @ti = $dbh->type_info;
+ok(@ti>0);
+
+is($dbh->type_info(SQL_INTEGER)->{DATA_TYPE}, SQL_INTEGER);
+is($dbh->type_info(SQL_INTEGER)->{TYPE_NAME}, 'INTEGER');
+
+is($dbh->type_info(SQL_VARCHAR)->{DATA_TYPE}, SQL_VARCHAR);
+is($dbh->type_info(SQL_VARCHAR)->{TYPE_NAME}, 'VARCHAR');
+
+1;