From 5b21742c0c9b7e0bc527d94fe99a320b2ba5e64b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 11 Sep 2005 20:44:31 +0000 Subject: [PATCH] Add tests for floating point over, underflow --- ansi-tests/expt.lsp | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) diff --git a/ansi-tests/expt.lsp b/ansi-tests/expt.lsp index 4b288363..dd43daba 100644 --- a/ansi-tests/expt.lsp +++ b/ansi-tests/expt.lsp @@ -19,6 +19,41 @@ (signals-error (expt 1 1 nil nil) program-error) t) +(deftest expt.error.4 + (signals-error (expt most-positive-short-float 2) floating-point-overflow) + t) + +(deftest expt.error.5 + (signals-error (expt most-positive-single-float 2) floating-point-overflow) + t) + +(deftest expt.error.6 + (signals-error (expt most-positive-double-float 2) floating-point-overflow) + t) + +(deftest expt.error.7 + (signals-error (expt most-positive-long-float 2) floating-point-overflow) + t) + +(deftest expt.error.8 + (signals-error (expt least-positive-short-float 2) floating-point-underflow) + t) + +(deftest expt.error.9 + (signals-error (expt least-positive-single-float 2) floating-point-underflow) + t) + +(deftest expt.error.10 + (signals-error (expt least-positive-double-float 2) floating-point-underflow) + t) + +(deftest expt.error.11 + (signals-error (expt most-positive-long-float 2) floating-point-underflow) + t) + + + + ;;; Non-error tests (deftest expt.1 -- GitLab