Author: turnstep
Date: Sat Aug 2 18:11:02 2008
New Revision: 11621
Modified:
DBD-Pg/trunk/Pg.pm
DBD-Pg/trunk/t/02attribs.t
DBD-Pg/trunk/t/99_spellcheck.t
DBD-Pg/trunk/t/dbdpg_test_setup.pl
Log:
Update docs and greatly increase testing for some statement attributes.
Some of those results are odd, but at least they are test-documented now.
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Sat Aug 2 18:11:02 2008
@@ -3512,9 +3512,10 @@
=head3 B<NUM_OF_FIELDS> (integer, read-only)
-Returns the number of columns returned by the current statement. This value will be undef until execute is called.
-A number will only be returned for SELECT statements, SHOW statements (which always return C<1>), and for INSERT,
+Returns the number of columns returned by the current statement. A number will only be returned for
+SELECT statements, for SHOW statements (which always return C<1>), and for INSERT,
UPDATE, and DELETE statements which contain a RETURNING clause.
+This method returns undef if called before C<execute()>.
=head3 B<NUM_OF_PARAMS> (integer, read-only)
@@ -3522,9 +3523,10 @@
=head3 B<NAME> (arrayref, read-only)
-Returns an arrayref of column names for the current statement. This will return undef until execute is called. This
-method will only work for SELECT statements, SHOW statements, and for INSERT, UPDATE, and DELETE statements
-which contain a RETURNING clause.
+Returns an arrayref of column names for the current statement. This
+method will only work for SELECT statements, for SHOW statements, and for
+INSERT, UPDATE, and DELETE statements which contain a RETURNING clause.
+This method returns undef if called before C<execute()>.
=head3 B<NAME_lc> (arrayref, read-only)
@@ -3538,6 +3540,7 @@
Similar to the C<NAME> attribute, but returns a hashref of column names instead of an arrayref. The names of the columns
are the keys of the hash, and the values represent the order in which the columns are returned, starting at 0.
+This method returns undef if called before C<execute()>.
=head3 B<NAME_lc_hash> (hashref, read-only)
@@ -3549,24 +3552,28 @@
=head3 B<TYPE> (arrayref, read-only)
-Returns an arrayref indicating the data type for each column in the statement. This information is not available before
-execute is called.
+Returns an arrayref indicating the data type for each column in the statement.
+This method returns undef if called before C<execute()>.
=head3 B<PRECISION> (arrayref, read-only)
-Returns a reference to an array of integer values of each column.
-C<NUMERIC> types will return the precision. Types of C<CHAR> and C<VARCHAR>
-will return their size (number of characters). Other types will return the number
-of I<bytes>.
+Returns an arrayref of integer values for each column returned by the statement.
+The number indicates the precision for C<NUMERIC> columns, the size in number of
+characters for C<CHAR> and C<VARCHAR> columns, and for all other types of columns
+it returns the number of I<bytes>.
+This method returns undef if called before C<execute()>.
=head3 B<SCALE> (arrayref, read-only)
-Returns a reference to an array of integer values of each column.
-The only type that will return a value currently is C<NUMERIC>.
+Returns an arrayref of integer values for each column returned by the statement. The number
+indicates the scale of the that column. The only type that will return a value is C<NUMERIC>.
+This method returns undef if called before C<execute()>.
=head3 B<NULLABLE> (arrayref, read-only)
-Supported by this driver as proposed by DBI.
+Returns an arrayref of integer values for each column returned by the statement. The number
+indicates if the column is nullable or not. 0 = not nullable, 1 = nullable, 2 = unknown.
+This method returns undef if called before C<execute()>.
=head3 B<CursorName> (string, read-only)
Modified: DBD-Pg/trunk/t/02attribs.t
==============================================================================
--- DBD-Pg/trunk/t/02attribs.t (original)
+++ DBD-Pg/trunk/t/02attribs.t Sat Aug 2 18:11:02 2008
@@ -18,7 +18,7 @@
if (! defined $dbh) {
plan skip_all => 'Connection to database failed, cannot continue testing';
}
-plan tests => 172;
+plan tests => 250;
isnt ($dbh, undef, 'Connect to database for handle attributes testing');
@@ -461,88 +461,343 @@
#
# Test of the the following statement handle attributes:
-# NUM_OF_FIELDS, NUM_OF_PARAMS
+# NUM_OF_PARAMS, NUM_OF_FIELDS
# NAME, NAME_lc, NAME_uc, NAME_hash, NAME_lc_hash, NAME_uc_hash
# TYPE, PRECISION, SCALE, NULLABLE
#
-$t='Statement handle attribute "NUM_OF_FIELDS" works correctly for SELECT';
+## First, all pre-execute checks:
+
+$t='Statement handle attribute "NUM_OF_PARAMS" works correctly before execute with no placeholders';
+$sth = $dbh->prepare('SELECT 123');
+is ($sth->{'NUM_OF_PARAMS'}, 0, $t);
+
+$t='Statement handle attribute "NUM_OF_PARAMS" works correctly before execute with three placeholders';
+$sth = $dbh->prepare('SELECT 123 FROM pg_class WHERE relname=? AND reltuples=? and relpages=?');
+is ($sth->{'NUM_OF_PARAMS'}, 3, $t);
+
+$t='Statement handle attribute "NUM_OF_PARAMS" works correctly before execute with one placeholder';
$sth = $dbh->prepare('SELECT 123 AS "Sheep", CAST(id AS float) FROM dbd_pg_test WHERE id=?');
+is ($sth->{'NUM_OF_PARAMS'}, 1, $t);
+
+$t='Statement handle attribute "NUM_OF_FIELDS" returns undef before execute';
+is ($sth->{'NUM_OF_FIELDS'}, undef, $t);
+
+$t='Statement handle attribute "NAME" returns undef before execute';
+is ($sth->{'NAME'}, undef, $t);
+
+$t='Statement handle attribute "NAME_lc" returns undef before execute';
+is ($sth->{'NAME_lc'}, undef, $t);
+
+$t='Statement handle attribute "NAME_uc" returns undef before execute';
+is ($sth->{'NAME_uc'}, undef, $t);
+
+$t='Statement handle attribute "NAME_hash" returns undef before execute';
+is ($sth->{'NAME_hash'}, undef, $t);
+
+$t='Statement handle attribute "NAME_lc_hash" returns undef before execute';
+is ($sth->{'NAME_lc_hash'}, undef, $t);
+
+$t='Statement handle attribute "NAME_uc_hash" returns undef before execute';
+is ($sth->{'NAME_uc_hash'}, undef, $t);
+
+$t='Statement handle attribute "TYPE" returns undef before execute';
+is ($sth->{'TYPE'}, undef, $t);
+
+$t='Statement handle attribute "PRECISION" returns undef before execute';
+is ($sth->{'PRECISION'}, undef, $t);
+
+$t='Statement handle attribute "SCALE" returns undef before execute';
+is ($sth->{'SCALE'}, undef, $t);
+
+$t='Statement handle attribute "NULLABLE" returns undef before execute';
+is ($sth->{'NULLABLE'}, undef, $t);
+
+## Now, some post-execute checks:
+
+$t='Statement handle attribute "NUM_OF_PARAMS" works correctly after execute';
$sth->execute(12);
-$attrib = $sth->{'NUM_OF_FIELDS'};
-is ($attrib, '2', $t);
+is ($sth->{'NUM_OF_PARAMS'}, 1, $t);
-$t='Statement handle attribute "NUM_OF_PARAMS" works correctly with one placeholder';
-$attrib = $sth->{'NUM_OF_PARAMS'};
-is ($attrib, '1', $t);
+$t='Statement handle attribute "NUM_OF_FIELDS" works correctly for SELECT statements';
+is ($sth->{'NUM_OF_FIELDS'}, 2, $t);
-$t='Statement handle attribute "NAME" works correctly';
-$attrib = $sth->{NAME};
+$t='Statement handle attribute "NAME" works correctly for SELECT statements';
my $colnames = ['Sheep', 'id'];
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'NAME'}, $colnames, $t);
-$t='Statement handle attribute "NAME_lc" works correctly';
-$attrib = $sth->{NAME_lc};
+$t='Statement handle attribute "NAME_lc" works correctly for SELECT statements';
$colnames = ['sheep', 'id'];
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'NAME_lc'}, $colnames, $t);
-$t='Statement handle attribute "NAME_uc" works correctly';
-$attrib = $sth->{NAME_uc};
+$t='Statement handle attribute "NAME_uc" works correctly for SELECT statements';
$colnames = ['SHEEP', 'ID'];
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'NAME_uc'}, $colnames, $t);
-$t='Statement handle attribute "NAME_hash" works correctly';
-$attrib = $sth->{'NAME_hash'};
+$t='Statement handle attribute "NAME_hash" works correctly for SELECT statements';
$colnames = {'Sheep' => 0, id => 1};
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'NAME_hash'}, $colnames, $t);
+
+$t='Statement handle attribute "NAME_lc_hash" works correctly for SELECT statements';
+$colnames = {'sheep' => 0, id => 1};
+is_deeply ($sth->{'NAME_lc_hash'}, $colnames, $t);
-$t='Statement handle attribute "NAME_lc_hash" works correctly';
-$attrib = $sth->{'NAME_lc_hash'};
-$colnames = {sheep => 0, id => 1};
-is_deeply ($attrib, $colnames, $t);
-
-$t='Statement handle attribute "NAME_uc_hash" works correctly';
-$attrib = $sth->{NAME_uc_hash};
-$colnames = {SHEEP => 0, ID => 1};
-is_deeply ($attrib, $colnames, $t);
+$t='Statement handle attribute "NAME_uc_hash" works correctly for SELECT statements';
+$colnames = {'SHEEP' => 0, ID => 1};
+is_deeply ($sth->{'NAME_uc_hash'}, $colnames, $t);
-$t='Statement handle attribute "TYPE" works correctly';
-$attrib = $sth->{TYPE};
+$t='Statement handle attribute "TYPE" works correctly for SELECT statements';
$colnames = [4, 6];
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'TYPE'}, $colnames, $t);
$t='Statement handle attribute "PRECISION" works correctly';
-$attrib = $sth->{PRECISION};
$colnames = [4, 8];
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'PRECISION'}, $colnames, $t);
$t='Statement handle attribute "SCALE" works correctly';
-$attrib = $sth->{SCALE};
$colnames = [undef,undef];
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'SCALE'}, $colnames, $t);
$t='Statement handle attribute "NULLABLE" works correctly';
-$attrib = $sth->{NULLABLE};
$colnames = [2,2];
+is_deeply ($sth->{NULLABLE}, $colnames, $t);
+
+## Post-finish tasks:
+
$sth->finish();
-is_deeply ($attrib, $colnames, $t);
-$t='Statement handle attribute "NUM_OF_FIELDS" works correctly for DELETE';
-$sth = $dbh->prepare('DELETE FROM dbd_pg_test WHERE id=0');
+$t='Statement handle attribute "NUM_OF_PARAMS" works correctly after finish';
+is ($sth->{'NUM_OF_PARAMS'}, 1, $t);
+
+$t='Statement handle attribute "NUM_OF_FIELDS" works correctly after finish';
+is ($sth->{'NUM_OF_FIELDS'}, 2, $t);
+
+$t='Statement handle attribute "NAME" returns undef after finish';
+is_deeply ($sth->{'NAME'}, undef, $t);
+
+$t='Statement handle attribute "NAME_lc" returns values after finish';
+$colnames = ['sheep', 'id'];
+is_deeply ($sth->{'NAME_lc'}, $colnames, $t);
+
+$t='Statement handle attribute "NAME_uc" returns values after finish';
+$colnames = ['SHEEP', 'ID'];
+is_deeply ($sth->{'NAME_uc'}, $colnames, $t);
+
+$t='Statement handle attribute "NAME_hash" works correctly after finish';
+$colnames = {'Sheep' => 0, id => 1};
+is_deeply ($sth->{'NAME_hash'}, $colnames, $t);
+
+$t='Statement handle attribute "NAME_lc_hash" works correctly after finish';
+$colnames = {'sheep' => 0, id => 1};
+is_deeply ($sth->{'NAME_lc_hash'}, $colnames, $t);
+
+$t='Statement handle attribute "NAME_uc_hash" works correctly after finish';
+$colnames = {'SHEEP' => 0, ID => 1};
+is_deeply ($sth->{'NAME_uc_hash'}, $colnames, $t);
+
+$t='Statement handle attribute "TYPE" returns undef after finish';
+is_deeply ($sth->{'TYPE'}, undef, $t);
+
+$t='Statement handle attribute "PRECISION" works correctly after finish';
+is_deeply ($sth->{'PRECISION'}, undef, $t);
+
+$t='Statement handle attribute "SCALE" works correctly after finish';
+is_deeply ($sth->{'SCALE'}, undef, $t);
+
+$t='Statement handle attribute "NULLABLE" works correctly after finish';
+is_deeply ($sth->{NULLABLE}, undef, $t);
+
+## Test UPDATE queries
+
+$t='Statement handle attribute "NUM_OF_FIELDS" returns undef for updates';
+$sth = $dbh->prepare('UPDATE dbd_pg_test SET id = 99 WHERE id = ?');
+$sth->execute(1);
+is_deeply ($sth->{'NUM_OF_FIELDS'}, undef, $t);
+
+$t='Statement handle attribute "NAME" returns empty arrayref for updates';
+is_deeply ($sth->{'NAME'}, [], $t);
+
+$t='Statement handle attribute "NAME_lc" returns empty arrayref for updates';
+is_deeply ($sth->{'NAME_lc'}, [], $t);
+
+$t='Statement handle attribute "NAME_uc" returns empty arrayref for updates';
+is_deeply ($sth->{'NAME_uc'}, [], $t);
+
+$t='Statement handle attribute "NAME_hash" returns empty hashref for updates';
+is_deeply ($sth->{'NAME_hash'}, {}, $t);
+
+$t='Statement handle attribute "NAME_uc_hash" returns empty hashref for updates';
+is_deeply ($sth->{'NAME_lc_hash'}, {}, $t);
+
+$t='Statement handle attribute "NAME_uc_hash" returns empty hashref for updates';
+is_deeply ($sth->{'NAME_uc_hash'}, {}, $t);
+
+$t='Statement handle attribute "TYPE" returns empty arrayref for updates';
+is_deeply ($sth->{'TYPE'}, [], $t);
+
+$t='Statement handle attribute "PRECISION" returns empty arrayref for updates';
+is_deeply ($sth->{'PRECISION'}, [], $t);
+
+$t='Statement handle attribute "SCALE" returns empty arrayref for updates';
+is_deeply ($sth->{'SCALE'}, [], $t);
+
+$t='Statement handle attribute "NULLABLE" returns empty arrayref for updates';
+is_deeply ($sth->{'NULLABLE'}, [], $t);
+
+$dbh->do('UPDATE dbd_pg_test SET id = 1 WHERE id = 99');
+
+## Test UPDATE,INSERT, and DELETE with RETURNING
+
+SKIP: {
+
+ if ($pgversion < 80200) {
+ skip ('Cannot test RETURNING clause on pre 8.2 servers', 33);
+ }
+
+ $t='Statement handle attribute "NUM_OF_FIELDS" returns correct value for RETURNING updates';
+ $sth = $dbh->prepare('UPDATE dbd_pg_test SET id = 99 WHERE id = ? RETURNING id, expo, "CaseTest"');
+ $sth->execute(1);
+ is_deeply ($sth->{'NUM_OF_FIELDS'}, 3, $t);
+
+ $t='Statement handle attribute "NAME" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'NAME'}, ['id','expo','CaseTest'], $t);
+
+ $t='Statement handle attribute "NAME_lc" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'NAME_lc'}, ['id','expo','casetest'], $t);
+
+ $t='Statement handle attribute "NAME_uc" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'NAME_uc'}, ['ID','EXPO','CASETEST'], $t);
+
+ $t='Statement handle attribute "NAME_hash" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'NAME_hash'}, {id=>0, expo=>1, CaseTest=>2}, $t);
+
+ $t='Statement handle attribute "NAME_lc_hash" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'NAME_lc_hash'}, {id=>0, expo=>1, casetest=>2}, $t);
+
+ $t='Statement handle attribute "NAME_uc_hash" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'NAME_uc_hash'}, {ID=>0, EXPO=>1, CASETEST=>2}, $t);
+
+ $t='Statement handle attribute "TYPE" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'TYPE'}, [4,3,16], $t);
+
+ $t='Statement handle attribute "PRECISION" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'PRECISION'}, [4,6,1], $t);
+
+ $t='Statement handle attribute "SCALE" returns correct info for RETURNING updates';
+ is_deeply ($sth->{'SCALE'}, [undef,2,undef], $t);
+
+ $t='Statement handle attribute "NULLABLE" returns empty arrayref for updates';
+ is_deeply ($sth->{'NULLABLE'}, [0,1,1], $t);
+
+ $dbh->do('UPDATE dbd_pg_test SET id = 1 WHERE id = 99');
+
+ $t='Statement handle attribute "NUM_OF_FIELDS" returns correct value for RETURNING inserts';
+ $sth = $dbh->prepare('INSERT INTO dbd_pg_test(id) VALUES(?) RETURNING id, lii, expo, "CaseTest"');
+ $sth->execute(88);
+ is_deeply ($sth->{'NUM_OF_FIELDS'}, 4, $t);
+
+ $t='Statement handle attribute "NAME" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'NAME'}, ['id','lii','expo','CaseTest'], $t);
+
+ $t='Statement handle attribute "NAME_lc" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'NAME_lc'}, ['id','lii','expo','casetest'], $t);
+
+ $t='Statement handle attribute "NAME_uc" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'NAME_uc'}, ['ID','LII','EXPO','CASETEST'], $t);
+
+ $t='Statement handle attribute "NAME_hash" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'NAME_hash'}, {id=>0, lii=>1, expo=>2, CaseTest=>3}, $t);
+
+ $t='Statement handle attribute "NAME_lc_hash" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'NAME_lc_hash'}, {id=>0, lii=>1, expo=>2, casetest=>3}, $t);
+
+ $t='Statement handle attribute "NAME_uc_hash" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'NAME_uc_hash'}, {ID=>0, LII=>1, EXPO=>2, CASETEST=>3}, $t);
+
+ $t='Statement handle attribute "TYPE" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'TYPE'}, [4,4,3,16], $t);
+
+ $t='Statement handle attribute "PRECISION" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'PRECISION'}, [4,4,6,1], $t);
+
+ $t='Statement handle attribute "SCALE" returns correct info for RETURNING inserts';
+ is_deeply ($sth->{'SCALE'}, [undef,undef,2,undef], $t);
+
+ $t='Statement handle attribute "NULLABLE" returns empty arrayref for inserts';
+ is_deeply ($sth->{'NULLABLE'}, [0,0,1,1], $t);
+
+ $t='Statement handle attribute "NUM_OF_FIELDS" returns correct value for RETURNING updates';
+ $sth = $dbh->prepare('DELETE FROM dbd_pg_test WHERE id = 88 RETURNING id, lii, expo, "CaseTest"');
+ $sth->execute();
+ is_deeply ($sth->{'NUM_OF_FIELDS'}, 4, $t);
+
+ $t='Statement handle attribute "NAME" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'NAME'}, ['id','lii','expo','CaseTest'], $t);
+
+ $t='Statement handle attribute "NAME_lc" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'NAME_lc'}, ['id','lii','expo','casetest'], $t);
+
+ $t='Statement handle attribute "NAME_uc" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'NAME_uc'}, ['ID','LII','EXPO','CASETEST'], $t);
+
+ $t='Statement handle attribute "NAME_hash" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'NAME_hash'}, {id=>0, lii=>1, expo=>2, CaseTest=>3}, $t);
+
+ $t='Statement handle attribute "NAME_lc_hash" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'NAME_lc_hash'}, {id=>0, lii=>1, expo=>2, casetest=>3}, $t);
+
+ $t='Statement handle attribute "NAME_uc_hash" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'NAME_uc_hash'}, {ID=>0, LII=>1, EXPO=>2, CASETEST=>3}, $t);
+
+ $t='Statement handle attribute "TYPE" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'TYPE'}, [4,4,3,16], $t);
+
+ $t='Statement handle attribute "PRECISION" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'PRECISION'}, [4,4,6,1], $t);
+
+ $t='Statement handle attribute "SCALE" returns correct info for RETURNING deletes';
+ is_deeply ($sth->{'SCALE'}, [undef,undef,2,undef], $t);
+
+ $t='Statement handle attribute "NULLABLE" returns empty arrayref for deletes';
+ is_deeply ($sth->{'NULLABLE'}, [0,0,1,1], $t);
+
+}
+
+$t='Statement handle attribute "NUM_OF_FIELDS" returns correct value for SHOW commands';
+$sth = $dbh->prepare('SHOW random_page_cost');
$sth->execute();
-$attrib = $sth->{'NUM_OF_FIELDS'};
-$expected = undef;
-is ($attrib, $expected, $t);
-
-$t='Statement handle attribute "NUM_OF_PARAMS" works correctly with no placeholder';
-$attrib = $sth->{'NUM_OF_PARAMS'};
-is ($attrib, '0', $t);
-
-$t='Statement handle attribute "NAME" works correctly for DELETE';
-$attrib = $sth->{NAME};
-$colnames = [];
-$sth->finish();
-is_deeply ($attrib, $colnames, $t);
+is_deeply ($sth->{'NUM_OF_FIELDS'}, 1, $t);
+
+$t='Statement handle attribute "NAME" returns correct info for SHOW commands';
+is_deeply ($sth->{'NAME'}, ['random_page_cost'], $t);
+
+$t='Statement handle attribute "NAME_lc" returns correct info for SHOW commands';
+is_deeply ($sth->{'NAME_lc'}, ['random_page_cost'], $t);
+
+$t='Statement handle attribute "NAME_uc" returns correct info for SHOW commands';
+is_deeply ($sth->{'NAME_uc'}, ['RANDOM_PAGE_COST'], $t);
+
+$t='Statement handle attribute "NAME_hash" returns correct info for SHOW commands';
+is_deeply ($sth->{'NAME_hash'}, {random_page_cost=>0}, $t);
+
+$t='Statement handle attribute "NAME_lc_hash" returns correct info for SHOW commands';
+is_deeply ($sth->{'NAME_lc_hash'}, {random_page_cost=>0}, $t);
+
+$t='Statement handle attribute "NAME_uc_hash" returns correct info for SHOW commands';
+is_deeply ($sth->{'NAME_uc_hash'}, {RANDOM_PAGE_COST=>0}, $t);
+
+$t='Statement handle attribute "TYPE" returns correct info for SHOW commands';
+is_deeply ($sth->{'TYPE'}, [-1], $t);
+
+$t='Statement handle attribute "PRECISION" returns correct info for SHOW commands';
+is_deeply ($sth->{'PRECISION'}, [undef], $t);
+
+$t='Statement handle attribute "SCALE" returns correct info for SHOW commands';
+is_deeply ($sth->{'SCALE'}, [undef], $t);
+
+$t='Statement handle attribute "NULLABLE" returns "unknown" (2) for SHOW commands';
+is_deeply ($sth->{'NULLABLE'}, [2], $t);
+
#
# Test of the statement handle attribute "CursorName"
Modified: DBD-Pg/trunk/t/99_spellcheck.t
==============================================================================
--- DBD-Pg/trunk/t/99_spellcheck.t (original)
+++ DBD-Pg/trunk/t/99_spellcheck.t Sat Aug 2 18:11:02 2008
@@ -554,7 +554,7 @@
## TODO:
struct
-
+hashrefs
## README.dev:
DProf
@@ -629,6 +629,7 @@
INV
NULLs
Oid
+PQoids
PGRES
ROK
StartTransactionCommand
@@ -687,6 +688,7 @@
xPID
## dbdimp.h:
+PQ
SSP
funcs
implementor
Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl (original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl Sat Aug 2 18:11:02 2008
@@ -528,6 +528,7 @@
testarray text[][],
testarray2 int[],
"CaseTest" boolean,
+ expo numeric(6,2),
bytetest bytea
)
};
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.