[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-serv22260

Modified Files:
	test.lisp 
Log Message:
Added two more tests for EXPT-MOD.

Date: Mon May  9 23:53:33 2005
Author: pscott

Index: cl-utilities/test.lisp
diff -u cl-utilities/test.lisp:1.2 cl-utilities/test.lisp:1.3
--- cl-utilities/test.lisp:1.2	Mon May  9 23:45:00 2005
+++ cl-utilities/test.lisp	Mon May  9 23:53:33 2005
@@ -72,7 +72,9 @@
 ;; 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 20 3 54) (mod (expt 20 3) 54)))
+  (is (= (expt-mod 2.5 3.8 34.9) (mod (expt 2.5 3.8) 34.9)))
+  (is (= (expt-mod 2/5 3/8 34/9) (mod (expt 2/5 3/8) 34/9))))
 
 (test collecting
   (is (tree-equal (collecting (dotimes (x 10) (collect x)))