[cl-utilities-cvs] CVS update: cl-utilities/test.lisp

[Peter Scott]

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)))