diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-03-07 08:48:10 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-08 14:48:14 +0000 |
| commit | 94b339ad8baaefd9ea67f68518c1a0a7b5a5e2a7 (patch) | |
| tree | d759bd0ae3d10d3dc347ee1d82cc1ab228399a14 /t | |
| parent | 659fb51c3fcc70af67fc81c5528c2700672063bc (diff) | |
| download | perl-94b339ad8baaefd9ea67f68518c1a0a7b5a5e2a7.tar.gz | |
Re: [PATCH] tests for Gconvert
Message-ID: <KpAi8gzkganW092yn@efn.org>
p4raw-id: //depot/perl@15106
Diffstat (limited to 't')
| -rw-r--r-- | t/base/num.t | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/t/base/num.t b/t/base/num.t index 77a086487c..37ef9fa1ce 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -151,9 +151,5 @@ print $a eq "-100000" ? "ok 43\n" : "not ok 43 # $a\n"; $a = 123.456; "$a"; print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n"; -$a = 1e30; "$a"; -# If using long doubles the "$a" might be "1"."0"x30. -# We might fool around with $Config{uselongdouble} -# and $Config{longdblsize} but let's keep this simple, -# we are in the base/ after all. -print $a eq "1e+30" || $a eq "1e+030" || $a eq "1000000000000000000000000000000" ? "ok 45\n" : "not ok 45 $a\n"; +$a = 1e34; "$a"; +print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; |