Author: turnstep
Date: Fri Jan 11 14:01:33 2008
New Revision: 10523
Modified:
DBD-Pg/trunk/t/03dbmethod.t
DBD-Pg/trunk/t/03smethod.t
Log:
Fix some small errors.
Modified: DBD-Pg/trunk/t/03dbmethod.t
==============================================================================
--- DBD-Pg/trunk/t/03dbmethod.t (original)
+++ DBD-Pg/trunk/t/03dbmethod.t Fri Jan 11 14:01:33 2008
@@ -87,7 +87,7 @@
eval {
$dbh->last_insert_id(undef,undef,'dbd_pg_test',{sequence=>''});
};
-ok($@, 'DB handle method "last_insert_id" fails when given an empty sequence
argument');
+is($@, q{}, 'DB handle method "last_insert_id" fails works given an empty
sequence argument');
$dbh->rollback();
eval {
Modified: DBD-Pg/trunk/t/03smethod.t
==============================================================================
--- DBD-Pg/trunk/t/03smethod.t (original)
+++ DBD-Pg/trunk/t/03smethod.t Fri Jan 11 14:01:33 2008
@@ -126,7 +126,7 @@
# Test of the "bind_param_inout" statement handle method
#
-my $t = q{Values do not change if bind_param_inout is not called};
+$t = q{Values do not change if bind_param_inout is not called};
my $var = 123;
$sth = $dbh->prepare("SELECT 1+?::int");