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