diff options
Diffstat (limited to 't/op/pow.t')
| -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. |