Test some more edge cases.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index ee2238bdf3867527434f156e14e0256db7224931..4623a98363557920d95946dba3a7338185fe2f0b 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -192,13 +192,17 @@ USA.
 
 (define-enumerated-test 'logit-logistic
   (vector
+   (vector -1.0000001 0.2689414017088022 (log .2689414017088022))
+   (vector -0.9999999 0.26894144103118883 (log .26894144103118883))
    (vector -1 0.2689414213699951 (log 0.2689414213699951))
    (vector -4.000000000537333e-5 .49999 (log .49999))
    (vector -4.000000108916879e-9 .499999999 (log .499999999))
    (vector 0 1/2 (log 1/2))
    (vector 3.999999886872274e-9 .500000001 (log .500000001))
    (vector 8.000042667076279e-3 .502 (log .502))
+   (vector +0.9999999 0.7310585589688111 (log 0.7310585589688111))
    (vector +1 0.7310585786300049 (log 0.7310585786300049))
+   (vector +1.0000001 0.7310585982911977 (log 0.7310585982911977))
    ;; Would like to do +/-710 but we get inexact result traps.
    (vector +708 1 -3.307553003638408e-308)
    (vector -708 3.307553003638408e-308 -708)