Change 12595 by jhi@alpha on 2001/10/22 21:31:31
Cygwin seems to round up (or closest, but not down)
for time(), so half of the time (bad pun intended)
Time::HiRes::time() is less than time(), half of
the time it's more. So let's try harder in the loop.
Affected files ...
... //depot/perl/ext/Time/HiRes/HiRes.t#8 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/HiRes.t#8 (text) ====
Index: perl/ext/Time/HiRes/HiRes.t
--- perl/ext/Time/HiRes/HiRes.t.~1~ Mon Oct 22 15:45:05 2001
+++ perl/ext/Time/HiRes/HiRes.t Mon Oct 22 15:45:05 2001
@@ -134,14 +134,14 @@
skip 14
} else {
my ($t1, $tf, $t2);
- for my $i (1 .. 9) {
+ for my $i (1 .. 20) {
$t1 = time();
$tf = Time::HiRes::time();
$t2 = 1 + time();
- last if (($t2 - $t1) <= 1);
+ last if (($t2 - $t1) <= 1) && $t1 <= $tf;
}
ok 14, (($t1 <= $tf) && ($tf <= $t2)),
- "Time::HiRes::time $tf not bracketed by $t1 - $t2";
+ "Time::HiRes::time $tf not bracketed by [$t1, $t2]";
}
End of Patch.
