X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbase%2Fnum.t;h=37ef9fa1ce30a33c377c6d2273d3ebcc2459c053;hb=0aa356c1277870a09fb0a72d88216267eefff4ac;hp=8a0eb923e983f18e4b3a8ebc0164178938a2caf1;hpb=0ad373b6ac664c739ef27968c44a6d6a5387a7ab;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/base/num.t b/t/base/num.t
index 8a0eb92..37ef9fa 100644
--- a/t/base/num.t
+++ b/t/base/num.t
@@ -107,7 +107,7 @@ $a = 1000; "$a";
 print $a + 1 == 1001  ? "ok 30\n" : "not ok 30 #" . $a + 1 . "\n";
 
 # back to some basic stringify tests
-# we expect NV stringification to work according to C sprintf %.g rules
+# we expect NV stringification to work according to C sprintf %.*g rules
 
 $a = 0.01; "$a";
 print $a eq "0.01"    ? "ok 31\n" : "not ok 31 # $a\n";
@@ -151,5 +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";
-print $a eq "1e+30" || $a eq "1e+030" ? "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";