From 9d8ab69e46b4a698cb22aadf3f68a48f91071764 Mon Sep 17 00:00:00 2001 From: sam Date: Wed, 3 Dec 2003 12:49:02 +0000 Subject: [PATCH] * examples/tests/r4rstest.scm: + Updated Aubrey Jaffers' R4RS compliance test. git-svn-id: svn://svn.zoy.org/elk/trunk@241 55e467fa-43c5-0310-a8a2-de718669efc6 --- examples/tests/r4rstest.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/examples/tests/r4rstest.scm b/examples/tests/r4rstest.scm index 56e94ef..f6f3ae0 100644 --- a/examples/tests/r4rstest.scm +++ b/examples/tests/r4rstest.scm @@ -594,9 +594,12 @@ (test #f eqv? 0 f0.0) (SECTION 6 5 5) (test #t inexact? f3.9) - (test #t 'inexact? (inexact? (max f3.9 4))) - (test f4.0 'max (max f3.9 4)) - (test f4.0 'exact->inexact (exact->inexact 4)) + (test #t 'max (inexact? (max f3.9 4))) + (test f4.0 max f3.9 4) + (test f4.0 exact->inexact 4) + (test f4.0 exact->inexact 4.0) + (test 4 inexact->exact 4) + (test 4 inexact->exact 4.0) (test (- f4.0) round (- f4.5)) (test (- f4.0) round (- f3.5)) (test (- f4.0) round (- f3.9))