describe: show the same information about functions for 'x and #'x.

[sbcl.git] / contrib / sb-gmp / tests.lisp

diff --git a/contrib/sb-gmp/tests.lisp b/contrib/sb-gmp/tests.lisp
index 4555a1d..2d47f0e 100644 (file)
--- 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))