From ca0cc6cb510f7475a756bafd3168c9d521e5a7f7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 5 May 2014 21:10:10 +0900 Subject: [PATCH] Updating R7RS tests to allow exact results from transcendental functions. Patch from Takashi Kato. Fixes issue #218. --- tests/r7rs-tests.scm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index 3cb73c65..d3150887 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -759,20 +759,20 @@ (test 1/3 (rationalize (exact .3) 1/10)) (test #i1/3 (rationalize .3 1/10)) -(test 1.0 (exp 0)) +(test 1.0 (inexact (exp 0))) ;; may return exact number (test 20.0855369231877 (exp 3)) -(test 0.0 (log 1)) +(test 0.0 (inexact (log 1))) ;; may return exact number (test 1.0 (log (exp 1))) (test 42.0 (log (exp 42))) (test 2.0 (log 100 10)) (test 12.0 (log 4096 2)) -(test 0.0 (sin 0)) +(test 0.0 (inexact (sin 0))) ;; may return exact number (test 1.0 (sin 1.5707963267949)) -(test 1.0 (cos 0)) +(test 1.0 (inexact (cos 0))) ;; may return exact number (test -1.0 (cos 3.14159265358979)) -(test 0.0 (tan 0)) +(test 0.0 (inexact (tan 0))) ;; may return exact number (test 1.5574077246549 (tan 1)) (test 0.0 (asin 0)) @@ -1714,8 +1714,10 @@ (f + 10))) (test 1024 (eval '(expt 2 10) (environment '(scheme base)))) -(test 0.0 (eval '(sin 0) (environment '(scheme inexact)))) -(test 1024.0 (eval '(+ (expt 2 10) (sin 0)) +;; (sin 0) may return exact number +(test 0.0 (inexact (eval '(sin 0) (environment '(scheme inexact))))) +;; ditto +(test 1024.0 (eval '(+ (expt 2 10) (inexact (sin 0))) (environment '(scheme base) '(scheme inexact)))) (test-end)