(*): Add complex/bignum test.

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 1951942..ecb71d3 100644 (file)
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1790,6 +1790,13 @@
 ;;; *
 ;;;
 
+(with-test-prefix "*"
+
+  (pass-if "complex * bignum"
+    (let ((big (ash 1 90)))
+      (= (make-rectangular big big)
+        (* 1+1i big)))))
+
 ;;;
 ;;; /
 ;;;