This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Long doubles give you long doubles.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 7 Mar 2002 20:26:36 +0000 (20:26 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 7 Mar 2002 20:26:36 +0000 (20:26 +0000)
p4raw-id: //depot/perl@15083

t/base/num.t

index 22f96be..77a0864 100644 (file)
@@ -152,4 +152,8 @@ $a = 123.456; "$a";
 print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n";
 
 $a = 1e30; "$a";
-print $a eq "1e+30" || $a eq "1e+030" ? "ok 45\n" : "not ok 45 $a\n";
+# 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";