From 95aa59a2ade6ba911b789fb813c163c938793c87 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 25 Oct 2018 01:47:22 +0000 Subject: [PATCH] Test some more edge cases. --- tests/runtime/test-arith.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index ee2238bdf..4623a9836 100644 --- 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) -- 2.25.1