Author: timbo
Date: Thu Mar 13 08:08:52 2008
New Revision: 10919
Modified:
dbi/trunk/t/40profile.t
Log:
A better way to avid suprious test failures on slow systems.
Modified: dbi/trunk/t/40profile.t
==============================================================================
--- dbi/trunk/t/40profile.t (original)
+++ dbi/trunk/t/40profile.t Thu Mar 13 08:08:52 2008
@@ -288,13 +288,16 @@
# give up a timeslice in the hope that the following few lines
# run in well under a second even of slow/overloaded systems
-sleep 1;
$t1 = int(dbi_time())+1; 1 while int(dbi_time()-0.01) < $t1; # spin till just
after second starts
$t2 = int($t1/$factor)*$factor;
$sth = $dbh->prepare("select name from .");
-
$tmp = sanitize_profile_data_nodes($dbh->{Profile}{Data});
+
+# if actual "!Time" recorded is 'close enough' then we'll pass
+# the test - it's not worth failing just because a system is slow
+$t1 = (keys %$tmp)[0] if (abs($t1 - (keys %$tmp)[0]) <= 2);
+
is_deeply $tmp, {
$t1 => { $t2 => { prepare => [ 1, 0, 0, 0, 0, 0, 0 ] }}
}, "!Time and !Time~$factor should work"
