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

[turnstep]

Author: turnstep
Date: Thu Sep 18 12:09:14 2008
New Revision: 11817

Modified:
   DBD-Pg/trunk/t/03dbmethod.t

Log:
Test bytea quoting, make some test cleanups.


Modified: DBD-Pg/trunk/t/03dbmethod.t
==============================================================================
--- DBD-Pg/trunk/t/03dbmethod.t (original)
+++ DBD-Pg/trunk/t/03dbmethod.t Thu Sep 18 12:09:14 2008
@@ -26,7 +26,7 @@
 if (! defined $dbh) {
        plan skip_all => 'Connection to database failed, cannot continue 
testing';
 }
-plan tests => 224;
+plan tests => 479;
 
 isnt ($dbh, undef, 'Connect to database for database handle method testing');
 
@@ -633,6 +633,8 @@
 # Test of the "statistics_info" database handle method
 #
 
+SKIP: {
+
 $dbh->{private_dbdpg}{version} >= 80000
        or skip ('Server must be version 8.0 or higher to test database handle 
method "statistics_info"', 10);
 
@@ -745,7 +747,7 @@
 $dbh->do("DROP TABLE $table2");
 $dbh->do("DROP TABLE $table1");
 
-## end of statistics_info tests
+} ## end of statistics_info tests
 
 
 #
@@ -1115,6 +1117,31 @@
 $t='DB handle method "quote" works with a supplied data type argument';
 is ($dbh->quote(1, 4), 1, $t);
 
+## Test bytea quoting
+my $scs = $dbh->{pg_standard_conforming_strings};
+for my $byteval (1 .. 255) {
+       my $byte = chr($byteval);
+       $result = $dbh->quote($byte, { pg_type => PG_BYTEA });
+       if ($byteval < 32 or $byteval >= 127) {
+               $expected = $scs
+                       ? sprintf qq{E'\\\\%03o'}, $byteval
+                               : sprintf qq{'\\\\%03o'}, $byteval;
+       }
+       else {
+               $expected = $scs
+                       ? sprintf qq{E'%s'}, $byte
+                               : sprintf qq{'%s'}, $byte;
+       }
+       if ($byte eq '\\') {
+               $expected =~ s{\\}{\\\\\\\\};
+       }
+       elsif ($byte eq q{'}) {
+               $expected = $scs ? q{E''''} : q{''''};
+       }
+       $t = qq{Byte value $byteval quotes to $expected};
+       is ($result, $expected, $t);
+}
+
 ## Various backslash tests
 $t='DB handle method "quote" works properly with backslashes';
 my $E = $pgversion >= 80100 ? q{E} : q{};