diff --git a/tests/issues.lisp b/tests/issues.lisp index af6dd5f59595a3ed642723a56c8b4c83c55a3bb2..d3c47767e18a22112501557558e987c991516dab 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -544,3 +544,15 @@ ;; the correct value. (assert-false (funcall (compile nil '(lambda () (array-displacement "aaaaaaaa")))))) + +(define-test issue.101 + (:tag :issues) + ;; Verifies that we don't get unexpected overflow. The actual value + ;; is not really important. The important part is no overflow is + ;; signaled. + ;; + ;; See https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/101 for + ;; more details. + (assert-equalp + 3.0380154777955097d205 + (expt 1.7976931348623157d308 0.6666)))