diff --git a/tests/trig.lisp b/tests/trig.lisp index 62f6f91164d567b0ea8bd250c3f03de8e284e072..724fabe7de7ac83461caf9335a855f1767ad9889 100644 --- a/tests/trig.lisp +++ b/tests/trig.lisp @@ -803,7 +803,7 @@ (kernel:make-double-float #x7ff00000 1) "A randon signaling MaN value") -(define-test cosh.exceptions +(define-test %cosh.exceptions (:tag :fdlibm) (assert-error 'floating-point-overflow (kernel:%cosh 1000d0)) @@ -827,7 +827,7 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext:float-nan-p (kernel:%cosh *snan*))))) -(define-test sinh.exceptions +(define-test %sinh.exceptions (:tag :fdlibm) (assert-error 'floating-point-overflow (kernel:%sinh 1000d0)) @@ -851,7 +851,7 @@ (assert-true (ext:float-nan-p (kernel:%sinh *qnan*))))) -(define-test tanh.exceptions +(define-test %tanh.exceptions (:tag :fdlibm) (assert-true (ext:float-nan-p (kernel:%tanh *qnan*))) (assert-error 'floating-point-invalid-operation @@ -859,7 +859,7 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext:float-nan-p (kernel:%tanh *snan*))))) -(define-test acosh.exceptions +(define-test %acosh.exceptions (:tag :fdlibm) (assert-error 'floating-point-overflow (kernel:%acosh ext:double-float-positive-infinity)) @@ -871,7 +871,7 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext:float-nan-p (kernel:%acosh 0d0))))) -(define-test asinh.exceptions +(define-test %asinh.exceptions (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%asinh *snan*)) @@ -888,7 +888,7 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext:float-nan-p (kernel:%asinh *snan*))))) -(define-test atanh.exceptions +(define-test %atanh.exceptions (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%atanh 2d0)) @@ -907,7 +907,7 @@ (assert-equal ext:double-float-negative-infinity (kernel:%atanh -1d0)))) -(define-test expm1.exceptions +(define-test %expm1.exceptions (:tag :fdlibm) (assert-error 'floating-point-overflow (kernel:%expm1 709.8d0)) @@ -923,7 +923,7 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext::float-nan-p (kernel:%expm1 *snan*))))) -(define-test log1p.exceptions +(define-test %log1p.exceptions (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%log1p -2d0)) @@ -936,7 +936,7 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext:float-nan-p (kernel:%log1p *snan*))))) -(define-test exp.exceptions +(define-test %exp.exceptions (:tag :fdlibm) (assert-error 'floating-point-overflow (kernel:%exp 710d0)) @@ -949,7 +949,7 @@ (assert-equal ext:double-float-positive-infinity (kernel:%exp 710d0)))) -(define-test log.exception +(define-test %log.exception (:tag :fdlibm) (assert-error 'division-by-zero (kernel:%log 0d0)) @@ -969,7 +969,7 @@ (assert-true (ext:float-nan-p (kernel:%log -1d0))) (assert-true (ext:float-nan-p (kernel:%log *snan*))))) -(define-test acos.exceptions +(define-test %acos.exceptions (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%acos 2d0)) @@ -979,7 +979,7 @@ (assert-true (ext:float-nan-p (kernel:%acos 2d0))) (assert-true (ext:float-nan-p (kernel:%acos -2d0))))) -(define-test asin.exceptions +(define-test %asin.exceptions (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%asin 2d0)) @@ -989,7 +989,7 @@ (assert-true (ext:float-nan-p (kernel:%asin 2d0))) (assert-true (ext:float-nan-p (kernel:%asin -2d0))))) -(define-test atan.exceptions +(define-test %atan.exceptions (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%atan *snan*))