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

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);