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

[timbo]

Author: timbo
Date: Fri Jun  5 15:25:37 2009
New Revision: 12811

Modified:
   dbi/trunk/t/40profile.t
   dbi/trunk/t/80proxy.t
   dbi/trunk/t/85gofer.t

Log:
Continue the timeout dance with automated testers.


Modified: dbi/trunk/t/40profile.t
==============================================================================
--- dbi/trunk/t/40profile.t     (original)
+++ dbi/trunk/t/40profile.t     Fri Jun  5 15:25:37 2009
@@ -19,9 +19,18 @@
 BEGIN {
     plan skip_all => "profiling not supported for DBI::PurePerl"
         if $DBI::PurePerl;
+
     # tie methods (STORE/FETCH etc) get called different number of times
     plan skip_all => "test results assume perl >= 5.8.2"
         if $] <= 5.008001;
+
+    # clock instability on xen systems is a reasonably common cause of failure
+    # http://www.nntp.perl.org/group/perl.cpan.testers/2009/05/msg3828158.html
+    # so we'll skip automated testing on those systems
+    plan skip_all => "skipping profile tests on xen (due to clock instability)"
+        if $Config{osvers} =~ /xen/ # eg 2.6.18-4-xen-amd64
+        and $ENV{AUTOMATED_TESTING};
+
     plan tests => 60;
 }
 

Modified: dbi/trunk/t/80proxy.t
==============================================================================
--- dbi/trunk/t/80proxy.t       (original)
+++ dbi/trunk/t/80proxy.t       Fri Jun  5 15:25:37 2009
@@ -109,7 +109,7 @@
        ($dbitracelevel >= 2 ? ('--debug') : ()),
        '--mode=single',
        '--logfile=STDERR',
-       '--timeout=60'
+       '--timeout=90'
     );
     warn " starting test dbiproxy process: @child_args\n" if DBI->trace(0);
     ($handle, $port) = Net::Daemon::Test->Child($numTests, @child_args);

Modified: dbi/trunk/t/85gofer.t
==============================================================================
--- dbi/trunk/t/85gofer.t       (original)
+++ dbi/trunk/t/85gofer.t       Fri Jun  5 15:25:37 2009
@@ -46,7 +46,7 @@
 }
 my $remote_driver_dsn = "dbm_type=$opt_dbm;lockfile=0";
 my $remote_dsn = "dbi:DBM:$remote_driver_dsn";
-my $timeout = 90; # for slow/overloaded systems (incl virtual machines with 
low priority)
+my $timeout = 120; # for slow/overloaded systems (incl virtual machines with 
low priority)
 
 plan 'no_plan';