[svn:DBD-Pg] r12630 - DBD-Pg/trunk/t

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