diff --git a/tests/trig.lisp b/tests/trig.lisp index 1452c4c191ea417976b04cf123e6c294b3b14a7e..2f4a945daf7c1d72997244d42576c8a5e6dfe24e 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*)))))