From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 5 Jul 2003 17:36:34 +0000 (+0000)
Subject: OpenBSD sometimes gets -0, probably due to fp fuzziness..
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=620b59a53a550f69eced47589e76083d00363a72;p=p5sagit%2Fp5-mst-13.2.git

OpenBSD sometimes gets -0, probably due to fp fuzziness..

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

diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index d9cb156..36bccd7 100644
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -305,10 +305,12 @@ sub check_graph_consistency {
         $all_passed
           &= is ($slowrate, $fastrate,
                  "slow rate isn't less than fast rate, so should be the same");
+	# In OpenBSD the $slowfast is sometimes a really, really, really
+	# small number less than zero, and this gets stringified as -0.
         $all_passed
-          &= is ($slowfast, 0, "slowfast should be zero");
+          &= like ($slowfast, qr/^-?0$/, "slowfast should be zero");
         $all_passed
-          &= is ($fastslow, 0, "fastslow should be zero");
+          &= like ($fastslow, qr/^-?0$/, "fastslow should be zero");
     }
     return $all_passed;
 }