Fix for sb-gmp bignum result allocation (lp#1206191)

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

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