[svn:dbi] r9399 - in dbi/trunk: . t

[timbo]

Author: timbo
Date: Thu Apr 12 01:44:17 2007
New Revision: 9399

Modified:
   dbi/trunk/Changes
   dbi/trunk/t/42prof_data.t

Log:
Fixed 42prof_data.t on fast systems with poor timers thanks to Malcolm Nooning.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Thu Apr 12 01:44:17 2007
@@ -43,15 +43,17 @@
 
   Fixed set_err so HandleSetErr hook is executed reliably, if set.
   Fixed accuracy of profiling when perl configured to use long doubles.
-  Fixed compile error in DBD::Gofer::Transport::http.
+  Fixed 42prof_data.t on fast systems with poor timers thanks to Malcolm 
Nooning.
+  Fixed gofer pipeone & stream transports to avoid risk of hanging.
 
-  Changed DBD::Gofer to work around a DBD::Sybase bind_param bug.
+  Changed DBD::Gofer to work around a DBD::Sybase bind_param bug
+    (which is now fixed in DBD::Sybase 1.07)
   Changed _set_fbav to not croak when given a wrongly sized array,
     it now warns and adjusts the row buffer to match.
-  Changed DBD::NullP to be vaguely useful for testing.
+  Changed DBD::NullP to be slightly more useful for testing.
   Changed File::Spec prerequisite to not require a minimum version.
   Changed tests to work with other DBMs thanks to ZMAN.
-  Assorted Gofer bug fixes, enhancements and docs.
+  Many assorted Gofer related bug fixes, enhancements and docs.
 
   Added support for install_methods to DBD::Gofer.
   Added goferperf.pl utility (doesn't get installed).

Modified: dbi/trunk/t/42prof_data.t
==============================================================================
--- dbi/trunk/t/42prof_data.t   (original)
+++ dbi/trunk/t/42prof_data.t   Thu Apr 12 01:44:17 2007
@@ -12,7 +12,7 @@
                plan skip_all => 'profiling not supported for DBI::PurePerl';
        }
        else {
-               plan tests => 33;
+               plan tests => 30;
        }
 }
 
@@ -27,12 +27,11 @@
                        { RaiseError=>1, Profile=>"6/DBI::ProfileDumper" });
 isa_ok( $dbh, 'DBI::db', 'Created connection' );
 
-# do a little work
-foreach (1,2,3) {
+# do a little work, but enough to ensure we don't get 0's on systems with low 
res timers
+foreach (1..6) {
   $dbh->do("set dummy=$_");
   my $sth = $dbh->prepare($sql);
-  isa_ok( $sth, 'DBI::st', 'Created handle' );
-  for my $loop (1..20) {  
+  for my $loop (1..50) {  
     $sth->execute(".");
     $sth->fetchrow_hashref;
     $sth->finish;