From b3a8c2e30234d97d00f89fe1d58af6af3356caa3 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 3 Sep 2003 02:12:24 +0000
Subject: [PATCH] More EXPT tests.

---
 ansi-tests/expt.lsp | 37 ++++++++++++++++++++++++++++++++++---
 1 file changed, 34 insertions(+), 3 deletions(-)

diff --git a/ansi-tests/expt.lsp b/ansi-tests/expt.lsp
index d926f693..116204ae 100644
--- a/ansi-tests/expt.lsp
+++ b/ansi-tests/expt.lsp
@@ -27,7 +27,7 @@
   t)
 
 (deftest expt.3
-  (loop for i = (random 10000.0s0)
+  (loop for i = (random 1.0s3)
 	repeat 1000
 	always (eql (expt i 0) 1.0s0))
   t)
@@ -39,19 +39,50 @@
   t)
 
 (deftest expt.5
-  (loop for i = (random 1.0d20)
+  (loop for i = (random 1.0d10)
 	repeat 1000
 	always (eql (expt i 0) 1.0d0))
   t)
 
 (deftest expt.6
-  (loop for i = (random 1.0l50)
+  (loop for i = (random 1.0l10)
 	repeat 1000
 	always (eql (expt i 0) 1.0l0))
   t)
 
+(deftest expt.7
+  (loop for i from -1000 to 1000
+	for c = (complex i i)
+	always (eql (expt c 0) 1))
+  t)
 
+(deftest expt.8
+  (loop for i = (random 1.0s3)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0s0 0.0s0)))
+  t)
 
+(deftest expt.9
+  (loop for i = (random 1.0f6)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0f0 0.0f0)))
+  t)
+
+(deftest expt.10
+  (loop for i = (random 1.0d10)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0d0 0.0d0)))
+  t)
+
+(deftest expt.11
+  (loop for i = (random 1.0l10)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0l0 0.0l0)))
+  t)
 
 
 
-- 
GitLab