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

[turnstep]

Author: turnstep
Date: Fri Feb 15 09:53:58 2008
New Revision: 10738

Modified:
   DBD-Pg/trunk/t/01connect.t

Log:
Log some important settings to help debug recent test failures.


Modified: DBD-Pg/trunk/t/01connect.t
==============================================================================
--- DBD-Pg/trunk/t/01connect.t  (original)
+++ DBD-Pg/trunk/t/01connect.t  Fri Feb 15 09:53:58 2008
@@ -14,7 +14,7 @@
 
 ## Define this here in case we get to the END block before a connection is 
made.
 BEGIN {
-       use vars qw/$pgversion $pglibversion $pgvstring $pgdefport $helpconnect 
$dbh $connerror/;
+       use vars qw/$pgversion $pglibversion $pgvstring $pgdefport $helpconnect 
$dbh $connerror %set/;
        ($pgversion,$pglibversion,$pgvstring,$pgdefport) = ('?','?','?','?');
 }
 
@@ -48,6 +48,14 @@
 
 pass('Connected with first database handle');
 
+## Grab some important values used for debugging
+my @vals = qw/array_nulls backslash_quote server_encoding 
standard_confirming_strings/;
+my $SQL = 'SELECT name,setting FROM pg_settings WHERE name IN (' .
+       (join ',' => map { qq{'$_'} } @vals) . ')';
+for (@{$dbh->selectall_arrayref($SQL)}) {
+       $set{$_->[0]} = $_->[1];
+}
+
 my $dbh2 = connect_database();
 
 pass('Connected with second database handle');
@@ -130,6 +138,11 @@
                }
        }
 
+       ## More helpful stuff
+       for (sort keys %set) {
+               $extra .= sprintf "\n%-21s %s", $_, $set{$_};
+       }
+
        if ($helpconnect) {
                $extra .= "\nAdjusted:             ";
                if ($helpconnect & 1) {