X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-gmp%2Ftests.lisp;h=2d47f0ec4ad588d5086bd39151c747fd1d6ca6c1;hb=2fb9cd4a2286b82e065d6c673d91e46bd7f2194d;hp=4555a1df7de66fee6ba223c1cadeeb400535ebbf;hpb=1656e5415acddf6655569b8332e138c36640c08a;p=sbcl.git

diff --git a/contrib/sb-gmp/tests.lisp b/contrib/sb-gmp/tests.lisp
index 4555a1d..2d47f0e 100644
--- a/contrib/sb-gmp/tests.lisp
+++ b/contrib/sb-gmp/tests.lisp
@@ -195,3 +195,20 @@
   (test-n-cases '/ 'mpq-div
                 (gen-mpq :limbs limbs :sign t)
                 (gen-mpq :limbs limbs :sign t)))
+
+(define-gmp-test (pow)
+  (test-one-case 'expt 'mpz-pow
+                 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))