From d2f946ac549cdc8da46c3bfbee61c52d8fd81f5e Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Thu, 21 Aug 2014 21:46:46 -0700 Subject: [PATCH] Fix some typos and remove redundant test for expm1. --- tests/trig.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/tests/trig.lisp b/tests/trig.lisp index 1452c4c19..2f4a945da 100644 --- a/tests/trig.lisp +++ b/tests/trig.lisp @@ -875,16 +875,15 @@ (:tag :fdlibm) (assert-error 'floating-point-overflow (kernel:%expm1 709.8d0)) - (assert-equal 'ext:double-float-positive-infinity + (assert-equal ext:double-float-positive-infinity (kernel:%expm1 ext:double-float-positive-infinity)) (assert-error 'floating-point-invalid-operation (kernel:%expm1 *snan*)) (assert-true (ext:float-nan-p (kernel:%expm1 *qnan*))) (kernel::with-float-traps-masked (:overflow) - (assert-true ext:double-float-positive-infinity + (assert-equal ext:double-float-positive-infinity (kernel:%expm1 709.8d0)) - (assert-true ext:double-float-positive-infinity - (kernel:%expm1 ext:double-float-positive-infinity))) + ) (kernel::with-float-traps-masked (:invalid) (assert-true (ext::float-nan-p (kernel:%expm1 *snan*))))) -- GitLab