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