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

[turnstep]

Author: turnstep
Date: Wed May 27 19:45:55 2009
New Revision: 12793

Modified:
   DBD-Pg/trunk/t/02attribs.t

Log:
Try to flush out exact error seen by a tester.


Modified: DBD-Pg/trunk/t/02attribs.t
==============================================================================
--- DBD-Pg/trunk/t/02attribs.t  (original)
+++ DBD-Pg/trunk/t/02attribs.t  Wed May 27 19:45:55 2009
@@ -1469,7 +1469,13 @@
 
        $t='Database handle attribute "ReadOnly" starts out undefined';
        $dbh->commit();
-       $dbh4 = connect_database();
+
+       ## This fails on some boxes, so we pull back all information to display 
why
+       my ($helpconnect, $connerror);
+       ($helpconnect, $connerror, $dbh4) = connect_database();
+       if (! defined $dbh4) {
+               die "Database connection failed: helpconnect is $helpconnect, 
error is $connerror\n";
+       }
        $dbh4->trace(0);
        is ($dbh4->{ReadOnly}, undef, $t);