From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 03:48:09 +0000 (+0000)
Subject: Make also the bigintpm.t (like op/sprintf.t) be less demanding
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36a80aa941133b2d90c7d598f79e7baefcfaf8f4;p=p5sagit%2Fp5-mst-13.2.git

Make also the bigintpm.t (like op/sprintf.t) be less demanding
with its floats	in os390 and s390 (UTS).

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

diff --git a/lib/Math/BigInt/t/bigintpm.t b/lib/Math/BigInt/t/bigintpm.t
index f819104..18a3605 100755
--- a/lib/Math/BigInt/t/bigintpm.t
+++ b/lib/Math/BigInt/t/bigintpm.t
@@ -417,8 +417,13 @@ ok ($args[4],7); ok (ref($args[4]),'');
 
 $z = 1050000000000000;          # may be int on systems with 64bit?
 $x = Math::BigInt->new($z); ok ($x->bsstr(),'105e+13');	# not 1.03e+15?
-$z = 1e+129;			# definitely a float
-$x = Math::BigInt->new($z); ok ($x->bsstr(),$z);
+if ($^O eq 'os390' || $^O eq 's390') { # non-IEEE
+    $z = 1e+75;			# definitely a float
+    $x = Math::BigInt->new($z); ok ($x->bsstr(),$z);
+} else {
+    $z = 1e+129;			# definitely a float
+    $x = Math::BigInt->new($z); ok ($x->bsstr(),$z);
+}
 
 ###############################################################################
 # prime number tests, also test for **= and length()