[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-01-3-g89a16ec

Raymond Toy rtoy at common-lisp.net
Mon Jan 6 04:34:17 UTC 2014


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  89a16ec62716a5eaf544d8aa0bd490e0c3c267ff (commit)
      from  b039aef5dc968d954b2da2c0987a4dd24fc4d32c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 89a16ec62716a5eaf544d8aa0bd490e0c3c267ff
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Jan 5 20:27:34 2014 -0800

    In trac.65, make comparison test an assertion test to show failures
    more clearly.

diff --git a/tests/trac.lisp b/tests/trac.lisp
index 4cffa78..3e23d3e 100644
--- a/tests/trac.lisp
+++ b/tests/trac.lisp
@@ -184,23 +184,19 @@
 		     
 (define-test trac.65
   (:tag :trac)
-  (assert-false
-   (let (failures)
-     (dolist (base '(2 2f0 2d0 2w0 #c(0 1) #c(0f0 1) #c(0d0 1) #c(0w0 1)))
-       (dolist (power '(2 3 1/2 -2 -3 -1/2 5))
-	 (dolist (power-type '(rational single-float double-float ext:double-double-float
-			       (complex single-float) (complex double-float)
-			       (complex ext:double-double-float)))
-	   (let* ((pp (coerce power power-type))
-		  (interp (expt base pp))
-		  (*compile-print* nil)
-		  (compiled (funcall (compile nil `(lambda (b)
-						     (declare (type ,(type-of base) b))
-						     (expt b ,pp)))
-				     base)))
-	     (unless (= interp compiled)
-	       (push (list base pp interp compiled) failures))))))
-     failures)))
+  (dolist (base '(2 2f0 2d0 2w0 #c(0 1) #c(0f0 1) #c(0d0 1) #c(0w0 1)))
+    (dolist (power '(2 3 1/2 -2 -3 -1/2 5))
+      (dolist (power-type '(rational single-float double-float ext:double-double-float
+			    (complex single-float) (complex double-float)
+			    (complex ext:double-double-float)))
+	(let* ((pp (coerce power power-type))
+	       (interp (expt base pp))
+	       (*compile-print* nil)
+	       (compiled (funcall (compile nil `(lambda (b)
+						  (declare (type ,(type-of base) b))
+						  (expt b ,pp)))
+				  base)))
+	  (assert-eql interp compiled base pp))))))
 
 (define-test trac.67
   (:tag :trac)

-----------------------------------------------------------------------

Summary of changes:
 tests/trac.lisp |   30 +++++++++++++-----------------
 1 file changed, 13 insertions(+), 17 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list