diff options
| author | James E Keenan <jkeenan@cpan.org> | 2012-12-25 21:35:25 -0500 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-01-05 14:08:04 -0500 |
| commit | 9c5f535f1298daba31bc51092d3a35c9ba36ae90 (patch) | |
| tree | b188bdefabf1d27d178f024db879338e719c6319 /t/op/pow.t | |
| parent | bdb377283424a105324c62ff1d2774691d947478 (diff) | |
| download | perl-9c5f535f1298daba31bc51092d3a35c9ba36ae90.tar.gz | |
t/op/pow.t: Add descriptions for tests lacking them.
Those which were still lacking descriptions were all testing that
exponentiation has precedence over negation.
Diffstat (limited to 't/op/pow.t')
| -rw-r--r-- | t/op/pow.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/op/pow.t b/t/op/pow.t index c6a7ad6385..4cfeed1e63 100644 --- a/t/op/pow.t +++ b/t/op/pow.t @@ -37,11 +37,11 @@ is(3**1, 3, "positive ** 1 = self"); is(3**2, 9, "positive ** 2 = positive"); is(3**3, 27, "(positive int) ** (odd power) is positive"); -# And test order of operations while we're at it -is(-3**0, -1); -is(-3**1, -3); -is(-3**2, -9); -is(-3**3, -27); +# And test order of operations while we are at it +is(-3**0, -1, "positive ** 0, then negated, = -1"); +is(-3**1, -3, "positive ** 1, then negated, = negative of self"); +is(-3**2, -9, "positive ** 2, then negated, = negative of square"); +is(-3**3, -27, "(positive int) ** (odd power), then negated, is negative"); # Ought to be 32, 64, 36 or something like that. |