1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/perl
# This is a test for statement attributes being present appropriately.
use strict;
use warnings;
use Test::More;
BEGIN { use_ok ("DBI") }
do "./t/lib.pl";
my $nano = $ENV{DBI_SQL_NANO};
my @tbl_def = (
[ "id", "INTEGER", 4, &COL_KEY ],
[ "name", "CHAR", 64, &COL_NULLABLE ],
);
ok (my $dbh = Connect (), "connect");
ok (my $tbl = FindNewTable ($dbh), "find new test table");
like (my $def = TableDefinition ($tbl, @tbl_def),
qr{^create table $tbl}i, "table definition");
ok ($dbh->do ($def), "create table");
ok (my $sth = $dbh->prepare ("select * from $tbl"), "prepare");
ok ($sth->execute, "execute");
is ($sth->{NUM_OF_FIELDS}, scalar @tbl_def, "NUM_OF_FIELDS");
is ($sth->{NUM_OF_PARAMS}, 0, "NUM_OF_PARAMS");
is ($sth->{NAME_lc}[0], lc $tbl_def[0][0], "NAME_lc");
is ($sth->{NAME_uc}[1], uc $tbl_def[1][0], "NAME_uc");
is_deeply ($sth->{NAME_lc_hash},
{ map { ( lc $tbl_def[$_][0] => $_ ) } 0 .. $#tbl_def }, "NAME_lc_hash");
if ($DBD::File::VERSION gt "0.43") {
is ($sth->{TYPE}[0], $nano ? &SQL_VARCHAR : &SQL_INTEGER, "TYPE 1");
is ($sth->{TYPE}[1], $nano ? &SQL_VARCHAR : &SQL_CHAR, "TYPE 2");
is ($sth->{PRECISION}[0], 0, "PRECISION 1");
is ($sth->{PRECISION}[1], $nano ? 0 : 64, "PRECISION 2");
is ($sth->{NULLABLE}[0], $nano ? 1 : 0, "NULLABLE 1");
is ($sth->{NULLABLE}[1], 1, "NULLABLE 2");
}
ok ($sth->finish, "finish");
#s ($sth->{NUM_OF_FIELDS}, 0, "NUM_OF_FIELDS");
undef $sth;
ok ($dbh->do ("drop table $tbl"), "drop table");
ok ($dbh->disconnect, "disconnect");
done_testing ();
|
