X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-gmp%2Ftests.lisp;fp=contrib%2Fsb-gmp%2Ftests.lisp;h=2d47f0ec4ad588d5086bd39151c747fd1d6ca6c1;hb=cd1c0c889786b8d43bfc22f0892a17f23c73ab3b;hp=ee3b6270d5e8454f0c9e36bfad4f274c6660479a;hpb=eb520f74a818e381004bd69668d7ba1abb94a0bb;p=sbcl.git

diff --git a/contrib/sb-gmp/tests.lisp b/contrib/sb-gmp/tests.lisp
index ee3b627..2d47f0e 100644
--- a/contrib/sb-gmp/tests.lisp
+++ b/contrib/sb-gmp/tests.lisp
@@ -198,4 +198,17 @@
 
 (define-gmp-test (pow)
   (test-one-case 'expt 'mpz-pow
-                 16 3)) 
+                 16 3))
+
+(defun fac (n)
+  (loop for i from 1 to n
+        for fac = 1 then (* fac i)
+        finally (return fac)))
+
+(define-gmp-test (fac1)
+  (test-one-case 'fac 'mpz-fac
+                 6))
+
+(define-gmp-test (fac2)
+  (test-one-case 'fac 'mpz-fac
+                 63))