Change 11901 by jhi@alpha on 2001/09/05 23:26:23
In UNICOS division is really lossy, better use
a tolerance test.
Affected files ...
... //depot/perl/ext/Time/HiRes/HiRes.t#4 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/HiRes.t#4 (text) ====
Index: perl/ext/Time/HiRes/HiRes.t
--- perl/ext/Time/HiRes/HiRes.t.~1~ Wed Sep 5 17:30:08 2001
+++ perl/ext/Time/HiRes/HiRes.t Wed Sep 5 17:30:08 2001
@@ -86,7 +86,7 @@
# Two-arg tv_interval() is always available.
{
my $f = tv_interval [5, 100_000], [10, 500_000];
- ok 9, $f == 5.4, $f;
+ ok 9, abs($f - 5.4) < 0.001, $f;
}
if (!$have_gettimeofday) {
End of Patch.
