suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests for (round -0.0), etc.

Browse Source 
svn: r8907
This commit is contained in:
Matthew Flatt 2008-03-06 21:32:57 +00:00
parent 186d63a2cc
commit cc6a756440
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/number.ss
View File

@ -1244,6 +1244,14 @@
(test 4.0 round 3.5)
(test -4.0 round -3.5)
(define (test-zero-ident f)
(test 0.0 f 0.0)
(test -0.0 f -0.0))
(test-zero-ident round)
(test-zero-ident floor)
(test-zero-ident ceiling)
(test-zero-ident truncate)
(err/rt-test (floor 2.6+0.0i))
(err/rt-test (ceiling 2.6+0.0i))
(err/rt-test (round 2.6+0.0i))