diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 03:48:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 03:48:09 +0000 |
| commit | 36a80aa941133b2d90c7d598f79e7baefcfaf8f4 (patch) | |
| tree | 44e3ea86ebcc5cbb56b3caa1a70589fee4afb8c1 /lib/Math/BigInt/t/bigintpm.t | |
| parent | e95e26538ce1f7497c603375424dbe1af45d7f5e (diff) | |
| download | perl-36a80aa941133b2d90c7d598f79e7baefcfaf8f4.tar.gz | |
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
Diffstat (limited to 'lib/Math/BigInt/t/bigintpm.t')
| -rwxr-xr-x | lib/Math/BigInt/t/bigintpm.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Math/BigInt/t/bigintpm.t b/lib/Math/BigInt/t/bigintpm.t index f819104885..18a3605122 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() |