[svn:dbi] r15078 - dbi/trunk/t

Author: timbo
Date: Mon Jan  9 02:55:26 2012
New Revision: 15078

Modified:
   dbi/trunk/t/85gofer.t

Log:
Show errstr when aborting t/85gofer.t

Modified: dbi/trunk/t/85gofer.t
==============================================================================
--- dbi/trunk/t/85gofer.t	(original)
+++ dbi/trunk/t/85gofer.t	Mon Jan  9 02:55:26 2012
@@ -163,7 +163,7 @@
     END { unlink glob "fruit.???" }
     ok $dbh->do("DROP TABLE IF EXISTS fruit");
     ok $dbh->do("CREATE TABLE fruit (dKey INT, dVal VARCHAR(10))");
-    die "$test_run_tag aborted\n" if $DBI::err;
+    die "$test_run_tag aborted ($DBI::errstr)\n" if $DBI::err;
 
     my $sth = do {
         local $dbh->{RaiseError} = 0;