Author: timbo
Date: Mon Jun 25 14:43:31 2007
New Revision: 9677

Modified:
   dbi/trunk/Changes
   dbi/trunk/t/80proxy.t

Log:
Removed dump_results() test from t/80proxy.t.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Mon Jun 25 14:43:31 2007
@@ -37,13 +37,13 @@
 Add trace modules that just records the last N trace messages into an array
 and prepends them to any error message.
 
-=head2 Changes in DBI 1.58 (svn rev XXXX),  XXth June 2007
+=head2 Changes in DBI 1.58 (svn rev 9677),  25th June 2007
 
-  Fixed code that triggered fatal error in bleadperl
-    thanks to Steve Hay.
+  Fixed code triggering fatal error in bleadperl, thanks to Steve Hay.
   Fixed compiler warning thanks to Jerry D. Hedden.
   Fixed t/40profile.t to use int(dbi_time()) for systems like Cygwin where
     time() seems to be rounded not truncated from the high resolution time.
+  Removed dump_results() test from t/80proxy.t.
 
 =head2 Changes in DBI 1.57 (svn rev 9639),  13th June 2007
 

Modified: dbi/trunk/t/80proxy.t
==============================================================================
--- dbi/trunk/t/80proxy.t       (original)
+++ dbi/trunk/t/80proxy.t       Mon Jun 25 14:43:31 2007
@@ -319,21 +319,6 @@
 }
 $csr_c->finish();
 
-print "Trying dump.\n";
-Test($csr_a = $dbh->prepare("select mode,size,name from ?"));
-Test($csr_a->execute('/'));
-my $dump_file = ($ENV{TMP} || $ENV{TEMP} || "/tmp")."/dumpcsr.tst";
-unlink $dump_file;
-if (open(DUMP_RESULTS, ">$dump_file")) {
-       Test($csr_a->dump_results("4", "\n", ",\t", \*DUMP_RESULTS));
-       close(DUMP_RESULTS);
-       Test(-s $dump_file > 0);
-} else {
-        Test(1, " # Skip");
-        Test(1, " # Skip");
-}
-unlink $dump_file;
-
 
 print "Trying type_info_all.\n";
 my $array = $dbh->type_info_all();

Reply via email to