Drop all the unnecessary "use utf8" clauses and some of

[p5sagit/p5-mst-13.2.git] / t / op / 64bitint.t

diff --git a/t/op/64bitint.t b/t/op/64bitint.t
index 47779dd..c34d188 100644 (file)
--- a/t/op/64bitint.t
+++ b/t/op/64bitint.t
@@ -16,7 +16,7 @@ BEGIN {
 # 32+ bit integers don't cause noise
 no warnings qw(overflow portable);
 
-print "1..57\n";
+print "1..58\n";
 
 my $q = 12345678901;
 my $r = 23456789012;
@@ -320,4 +320,10 @@ if ($num eq $string) {
   print "not ok 57 # \"$num\" ne \"$string\"\n";
 }
 
+$q = "18446744073709551616e0";
+$q += 0;
+print "# \"18446744073709551616e0\" += 0 gives $q\nnot " if "$q" eq "18446744073709551615";
+print "ok 58\n";
+
+
 # eof