From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 7 Mar 2002 20:26:36 +0000 (+0000)
Subject: Long doubles give you long doubles.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7391caeba91da2f21fc9bf9ae8279f9173b8be6;p=p5sagit%2Fp5-mst-13.2.git

Long doubles give you long doubles.

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

diff --git a/t/base/num.t b/t/base/num.t
index 22f96be..77a0864 100644
--- a/t/base/num.t
+++ b/t/base/num.t
@@ -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";