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