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

Author: turnstep
Date: Sat Dec 13 08:56:00 2008
New Revision: 12156

Modified:
   DBD-Pg/trunk/t/12placeholders.t

Log:
Skip scs tests for old versions.


Modified: DBD-Pg/trunk/t/12placeholders.t
==============================================================================
--- DBD-Pg/trunk/t/12placeholders.t	(original)
+++ DBD-Pg/trunk/t/12placeholders.t	Sat Dec 13 08:56:00 2008
@@ -279,25 +279,27 @@
 like ($@, qr{relation ".*" does not exist}, $t);
 $dbh->rollback();
 
-$t='Backslash quoting inside single quotes is parsed correctly with standard_conforming_strings off';
-eval {
-	$dbh->do(q{SET standard_conforming_strings = 'off'});
-	$sth = $dbh->prepare(q{SELECT '\', ?});
-	$sth->execute();
-	$sth->finish();
-};
-like ($@, qr{unterminated quoted string}, $t);
-$dbh->rollback();
-
-$t='Backslash quoting inside single quotes is parsed correctly with standard_conforming_strings on';
-eval {
-	$dbh->do(q{SET standard_conforming_strings = 'on'});
-	$sth = $dbh->prepare(q{SELECT '\', ?::int});
-	$sth->execute(1);
-	$sth->finish();
-};
-is ($@, q{}, $t);
-
+SKIP: {
+	skip 'Setting standard_conforming_strings not available', 2 if ! defined $scs;
+	$t='Backslash quoting inside single quotes is parsed correctly with standard_conforming_strings off';
+	eval {
+		$dbh->do(q{SET standard_conforming_strings = 'off'});
+		$sth = $dbh->prepare(q{SELECT '\', ?});
+		$sth->execute();
+		$sth->finish();
+	};
+	like ($@, qr{unterminated quoted string}, $t);
+	$dbh->rollback();
+
+	$t='Backslash quoting inside single quotes is parsed correctly with standard_conforming_strings on';
+	eval {
+		$dbh->do(q{SET standard_conforming_strings = 'on'});
+		$sth = $dbh->prepare(q{SELECT '\', ?::int});
+		$sth->execute(1);
+		$sth->finish();
+	};
+	is ($@, q{}, $t);
+}
 
 ## Begin custom type testing