From 10a7fe4c1a3d8505405eccc337455d06266c8a1c Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sat, 23 Sep 2006 01:08:57 +0000
Subject: [PATCH] And still more of (exp, log, log10, sqrt): New tests.

---
 test-suite/tests/numbers.test | 28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 13738a36a..78d130a2b 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -88,7 +88,7 @@
 
 ;; return true if OBJ is negative infinity
 (define (negative-infinity? obj)
-  (and (number? obj)
+  (and (real? obj)
        (negative? obj)
        (inf? obj)))
 
@@ -231,6 +231,9 @@
 ;;;
 
 (with-test-prefix "exp"
+  (pass-if "documented?"
+    (documented? exp))
+
   (pass-if-exception "no args" exception:wrong-num-args
     (exp))
   (pass-if-exception "two args" exception:wrong-num-args
@@ -2988,12 +2991,16 @@
 ;;;
 
 (with-test-prefix "log"
+  (pass-if "documented?"
+    (documented? log))
+
   (pass-if-exception "no args" exception:wrong-num-args
     (log))
   (pass-if-exception "two args" exception:wrong-num-args
     (log 123 456))
 
   (pass-if (negative-infinity? (log 0)))
+  (pass-if (negative-infinity? (log 0.0)))
   (pass-if (eqv? 0.0 (log 1)))
   (pass-if (eqv? 0.0 (log 1.0)))
   (pass-if (eqv-loosely? 1.0  (log const-e)))
@@ -3001,19 +3008,27 @@
   (pass-if (eqv-loosely? -1.0 (log const-1/e)))
 
   (pass-if (eqv-loosely? 1.0+1.57079i (log 0+2.71828i)))
-  (pass-if (eqv-loosely? 1.0-1.57079i (log 0-2.71828i))))
+  (pass-if (eqv-loosely? 1.0-1.57079i (log 0-2.71828i)))
+
+  (pass-if (eqv-loosely? 0.0+3.14159i (log -1.0)))
+  (pass-if (eqv-loosely? 1.0+3.14159i (log -2.71828)))
+  (pass-if (eqv-loosely? 2.0+3.14159i (log (* -2.71828 2.71828)))))
 
 ;;;
 ;;; log10
 ;;;
 
 (with-test-prefix "log10"
+  (pass-if "documented?"
+    (documented? log10))
+
   (pass-if-exception "no args" exception:wrong-num-args
     (log10))
   (pass-if-exception "two args" exception:wrong-num-args
     (log10 123 456))
 
   (pass-if (negative-infinity? (log10 0)))
+  (pass-if (negative-infinity? (log10 0.0)))
   (pass-if (eqv? 0.0 (log10 1)))
   (pass-if (eqv? 0.0 (log10 1.0)))
   (pass-if (eqv-loosely? 1.0  (log10 10.0)))
@@ -3021,7 +3036,11 @@
   (pass-if (eqv-loosely? -1.0 (log10 0.1)))
 
   (pass-if (eqv-loosely? 1.0+0.68218i (log10 0+10.0i)))
-  (pass-if (eqv-loosely? 1.0-0.68218i (log10 0-10.0i))))
+  (pass-if (eqv-loosely? 1.0-0.68218i (log10 0-10.0i)))
+
+  (pass-if (eqv-loosely? 0.0+1.36437i (log10 -1)))
+  (pass-if (eqv-loosely? 1.0+1.36437i (log10 -10)))
+  (pass-if (eqv-loosely? 2.0+1.36437i (log10 -100))))
 
 ;;;
 ;;; logbit?
@@ -3134,6 +3153,9 @@
 ;;;
 
 (with-test-prefix "sqrt"
+  (pass-if "documented?"
+    (documented? sqrt))
+
   (pass-if-exception "no args" exception:wrong-num-args
     (sqrt))
   (pass-if-exception "two args" exception:wrong-num-args