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
