(integer-expt): New tests, of infinite exponents.

(integer?): Exercise nan and +/-inf.

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 634ec75..63342af 100644 (file)
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1234,6 +1234,9 @@
   (pass-if (and (= 3+0i (round 3+0i)) (integer? 3+0i)))
   (pass-if (and (= 1.0 (round 1.0)) (integer? 1.0)))
   (pass-if (not (integer? 1.3)))
+  (pass-if (not (integer? +inf.0)))
+  (pass-if (not (integer? -inf.0)))
+  (pass-if (not (integer? +nan.0)))
   (pass-if (not (integer? 3+4i)))
   (pass-if (not (integer? #\a)))
   (pass-if (not (integer? "a")))
@@ -2617,6 +2620,19 @@
       (pass-if (list i n)
        (= n (inexact->exact (exact->inexact n)))))))
 
+;;;
+;;; integer-expt
+;;;
+
+(with-test-prefix "integer-expt"
+
+  (pass-if-exception "2^+inf" exception:wrong-type-arg
+    (integer-expt 2 +inf.0))
+  (pass-if-exception "2^-inf" exception:wrong-type-arg
+    (integer-expt 2 -inf.0))
+  (pass-if-exception "2^nan" exception:wrong-type-arg
+    (integer-expt 2 +nan.0)))
+
 ;;;
 ;;; integer-length
 ;;;