conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* 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
This commit is contained in:
sam 2003-12-03 12:49:02 +00:00
parent 17adddfb93
commit 9d8ab69e46
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/tests/r4rstest.scm
View File

@ -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))