Author: turnstep
Date: Mon Mar 23 19:18:34 2009
New Revision: 12630
Modified:
DBD-Pg/trunk/t/02attribs.t
DBD-Pg/trunk/t/12placeholders.t
DBD-Pg/trunk/t/99_spellcheck.t
Log:
Minor testing tweaks.
Modified: DBD-Pg/trunk/t/02attribs.t
==============================================================================
--- DBD-Pg/trunk/t/02attribs.t (original)
+++ DBD-Pg/trunk/t/02attribs.t Mon Mar 23 19:18:34 2009
@@ -251,6 +251,7 @@
local $SIG{__WARN__} = sub { $warning = shift; };
+$dbh->do(q{SET client_min_messages = 'NOTICE'});
$t='DB handle attribute "PrintWarn" works when on';
$warning = q{};
eval {
Modified: DBD-Pg/trunk/t/12placeholders.t
==============================================================================
--- DBD-Pg/trunk/t/12placeholders.t (original)
+++ DBD-Pg/trunk/t/12placeholders.t Mon Mar 23 19:18:34 2009
@@ -270,15 +270,20 @@
is ($@, q{}, $t);
}
-$t='Backslash quoting inside double quotes is parsed correctly';
-$dbh->do(q{SET backslash_quote = 'on'});
-$dbh->commit();
-eval {
- $sth = $dbh->prepare(q{SELECT * FROM "\" WHERE a=?});
- $sth->execute(1);
- $sth->finish();
-};
-like ($@, qr{relation ".*" does not exist}, $t);
+SKIP: {
+ skip 'Cannot run backslash_quote tet on Postgres < 8.2', 1 if
$pgversion < 80200;
+
+ $t='Backslash quoting inside double quotes is parsed correctly';
+ $dbh->do(q{SET backslash_quote = 'on'});
+ $dbh->commit();
+ eval {
+ $sth = $dbh->prepare(q{SELECT * FROM "\" WHERE a=?});
+ $sth->execute(1);
+ $sth->finish();
+ };
+ like ($@, qr{relation ".*" does not exist}, $t);
+}
+
$dbh->rollback();
SKIP: {
Modified: DBD-Pg/trunk/t/99_spellcheck.t
==============================================================================
--- DBD-Pg/trunk/t/99_spellcheck.t (original)
+++ DBD-Pg/trunk/t/99_spellcheck.t Mon Mar 23 19:18:34 2009
@@ -796,6 +796,7 @@
selectall
selectcol
selectrow
+untrace
## t/01constants.t:
RequireUseWarnings
