This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] tests for Gconvert
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Thu, 7 Mar 2002 16:48:10 +0000 (08:48 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Mar 2002 14:48:14 +0000 (14:48 +0000)
Message-ID: <KpAi8gzkganW092yn@efn.org>

p4raw-id: //depot/perl@15106

Configure
t/base/num.t

index 6e85478..0f0b39d 100755 (executable)
--- 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
index 77a0864..37ef9fa 100644 (file)
@@ -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";