Integrate mainline

[p5sagit/p5-mst-13.2.git] / t / base / num.t

diff --git a/t/base/num.t b/t/base/num.t
index 8a0eb92..37ef9fa 100644 (file)
--- 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";