diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-08 12:46:54 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-08 14:31:39 -0500 |
commit | 00c6bd382c7d72713e8c18253ebd82aad09d65a5 (patch) | |
tree | 64670fe0e7fb3350fa974675800a644798ec3413 /t/op/infnan.t | |
parent | 5ebb886c819e1797abbe87aeb12c359cccd7179e (diff) | |
download | perl-00c6bd382c7d72713e8c18253ebd82aad09d65a5.tar.gz |
Fix one test message, add two tests.
Diffstat (limited to 't/op/infnan.t')
-rw-r--r-- | t/op/infnan.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/infnan.t b/t/op/infnan.t index 43c7d99681..23d53776da 100644 --- a/t/op/infnan.t +++ b/t/op/infnan.t @@ -69,7 +69,9 @@ cmp_ok($NInf + $NInf, '==', $NInf, "-Inf - Inf is -Inf"); cmp_ok($PInf * 2, '==', $PInf, "twice Inf is Inf"); cmp_ok($PInf / 2, '==', $PInf, "half of Inf is Inf"); -cmp_ok($PInf * $PInf, '==', $PInf, "-Inf * +Inf is +Inf"); +cmp_ok($PInf * $PInf, '==', $PInf, "+Inf * +Inf is +Inf"); +cmp_ok($PInf * $NInf, '==', $NInf, "+Inf * -Inf is -Inf"); +cmp_ok($NInf * $PInf, '==', $NInf, "-Inf * +Inf is -Inf"); cmp_ok($NInf * $NInf, '==', $PInf, "-Inf * -Inf is +Inf"); is(sprintf("%g", $PInf), "Inf", "$PInf sprintf %g is Inf"); |