diff options
author | Stephen McCamant <smcc@mit.edu> | 2003-07-17 22:26:14 -0400 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-18 06:14:33 +0000 |
commit | 0615a99403886355a89a1cb45b8c609e4424870a (patch) | |
tree | 97e2cf7d68c26fa8ba2ff6f6d334b00294d722c1 /t/op | |
parent | 8ec8fbef8c5eb2490dc99115adb2487f3bf9ddab (diff) | |
download | perl-0615a99403886355a89a1cb45b8c609e4424870a.tar.gz |
Re: Oops - Can't calculate our powers
Message-ID: <16151.37638.162561.84142@syllepsis.MIT.EDU>
p4raw-id: //depot/perl@20167
Diffstat (limited to 't/op')
-rw-r--r-- | t/op/pow.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/pow.t b/t/op/pow.t index 2e1d29fcb0..845e0ffe1d 100644 --- a/t/op/pow.t +++ b/t/op/pow.t @@ -16,7 +16,10 @@ my @pow = ([3,30,1e-14], [4,32,0], [5,20,1e-14], [2.5, 10,,1e-14], [-2, 69,0]); my $tests; $tests += $_->[1] foreach @pow; -plan tests => 1 + $bits_in_uv + $tests; +plan tests => 2 + $bits_in_uv + $tests; + +# This gave positive 27 before change #20167 +is((-3)**3, -27, "(negative int) ** (odd power) is negative"); # Ought to be 32, 64, 36 or something like that. |