From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 5 Sep 2001 23:26:23 +0000 (+0000)
Subject: In UNICOS division is really lossy, better use
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6cf89afa34f7978c2a9aa74aacf9a7b22c527281;p=p5sagit%2Fp5-mst-13.2.git

In UNICOS division is really lossy, better use
a tolerance test.

p4raw-id: //depot/perl@11901
---

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index be462e6..feeb5cf 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -86,7 +86,7 @@ else {
 # 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) {