Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv21142
Modified Files: test.lisp Log Message: Removed bad test
Date: Mon May 9 23:45:00 2005 Author: pscott
Index: cl-utilities/test.lisp diff -u cl-utilities/test.lisp:1.1.1.1 cl-utilities/test.lisp:1.2 --- cl-utilities/test.lisp:1.1.1.1 Mon May 9 23:26:29 2005 +++ cl-utilities/test.lisp Mon May 9 23:45:00 2005 @@ -72,8 +72,7 @@ ;; Random testing would probably work better here. (test expt-mod (is (= (expt-mod 2 34 54) (mod (expt 2 34) 54))) - (is (= (expt-mod 20 3 54) (mod (expt 20 3) 54))) - (is (= (expt-mod 2.3 -4 5.4) (mod (expt 2.3 -4) 5.4)))) + (is (= (expt-mod 20 3 54) (mod (expt 20 3) 54))))
(test collecting (is (tree-equal (collecting (dotimes (x 10) (collect x)))