diff options
author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2012-06-06 16:41:29 +0000 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-09-26 13:46:50 +0000 |
commit | 7c48e67cf07ee41bfde7139a62bb232bd23a4a48 (patch) | |
tree | 6d7686b5075bd5cba253dabf2e6c302acb3a147c /t/20meta.t | |
download | perl-dbi-tarball-7c48e67cf07ee41bfde7139a62bb232bd23a4a48.tar.gz |
Diffstat (limited to 't/20meta.t')
-rw-r--r-- | t/20meta.t | 32 |
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; |