From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Thu, 7 Mar 2002 16:48:10 +0000 (-0800)
Subject: Re: [PATCH] tests for Gconvert
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94b339ad8baaefd9ea67f68518c1a0a7b5a5e2a7;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] tests for Gconvert
Message-ID: <KpAi8gzkganW092yn@efn.org>

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

diff --git a/Configure b/Configure
index 6e85478..0f0b39d 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Thu Mar  7 07:37:32 EET 2002 [metaconfig 3.0 PL70]
+# Generated on Fri Mar  8 17:00:48 EET 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -8812,11 +8812,13 @@ int main()
 	checkit("123.456", buf);
 
 	/* Testing of 1e+129 in bigintpm.t must not get extra '.' here. */
-	Gconvert((DOUBLETYPE)1e30, 8, 0, buf);
+	Gconvert((DOUBLETYPE)1e34, 8, 0, buf);
+	/* 34 should be enough to scare even long double
+	 * places into using the e notation. */
 	if (strlen(buf) > 5)
-	    checkit("1e+030", buf); /* for Microsoft */
+	    checkit("1e+034", buf); /* for Microsoft */
 	else
-	    checkit("1e+30", buf);
+	    checkit("1e+34", buf);
 
 	/* For Perl, if you add additional tests here, also add them to
 	 * t/base/num.t for benefit of platforms not using Configure or
diff --git a/t/base/num.t b/t/base/num.t
index 77a0864..37ef9fa 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";