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