diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2006-02-12 17:39:25 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-17 08:50:27 +0000 |
| commit | a0cec76945276a0895c829a391529265d9b76bc0 (patch) | |
| tree | 071d39c902266f67ba8504374e9785f6c0ce053a /lib | |
| parent | bc82975d259d743626ad1b4a960b4b1f13c7a816 (diff) | |
| download | perl-a0cec76945276a0895c829a391529265d9b76bc0.tar.gz | |
Re: [perl #38485] use integer; 0x80000000/-1; # coredump
Message-ID: <20060213093925.GA3476@efn.org>
p4raw-id: //depot/perl@27205
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/integer.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/integer.t b/lib/integer.t index 5c353b348c..c1bb4d04cf 100644 --- a/lib/integer.t +++ b/lib/integer.t @@ -7,7 +7,7 @@ BEGIN { use integer; -use Test::More tests => 12; +use Test::More tests => 15; use Config; my $x = 4.5; @@ -55,10 +55,15 @@ 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; + skip "ivsize == $ivsize", 4 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"); + is($@, '', 'IV_MIN / -1 succeeds'); + is($biff, -$iv_min, 'IV_MIN / -1 == -IV_MIN'); + + eval { $biff = $iv_min % -1 }; + is($@, '', 'IV_MIN % -1 succeeds'); + is($biff, 0, 'IV_MIN % -1 == 0'); } |