summaryrefslogtreecommitdiff
path: root/t/op
diff options
context:
space:
mode:
authorStephen McCamant <smcc@mit.edu>2003-07-17 22:26:14 -0400
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-07-18 06:14:33 +0000
commit0615a99403886355a89a1cb45b8c609e4424870a (patch)
tree97e2cf7d68c26fa8ba2ff6f6d334b00294d722c1 /t/op
parent8ec8fbef8c5eb2490dc99115adb2487f3bf9ddab (diff)
downloadperl-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.t5
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.