Re: how to build with -DPERL_MEM_LOG ?

[p5sagit/p5-mst-13.2.git] / lib / integer.t

diff --git a/lib/integer.t b/lib/integer.t
index 4184747..5c353b3 100644 (file)
--- a/lib/integer.t
+++ b/lib/integer.t
@@ -1,6 +1,13 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use integer;
 
-use Test::More tests => 11;
+use Test::More tests => 12;
 use Config;
 
 my $x = 4.5;
@@ -43,4 +50,15 @@ SKIP: {
     }
 }
 
-is(~0, -1, "unsigned");
+is(~0, -1, "signed instead of unsigned");
+
+# [perl #38485] use integer; 0x80000000/-1;
+SKIP: {
+    my $ivsize = $Config{ivsize};
+    skip "ivsize == $ivsize", 2 unless $ivsize == 4 || $ivsize == 8;
+
+    my $iv_min = $ivsize == 4 ? -2147483648 : -9223372036854775808;
+    my $biff;
+    eval { $biff = $iv_min / -1 };
+    like($@, qr/Integer overflow in division/, "Caught IV_MIN / -1");
+}