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

Add tests for jitted real->*-flonum.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-11 12:24:36 -04:00
parent 7dfe1f636f
commit 427eaca513
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/racket/number.rktl
View File

@ -686,6 +686,16 @@
(test 2.25 real->double-flonum 2.25)
(test 2.25 real->double-flonum 2.25f0)
;; to make sure they work when jitted
(define (r->s-f x) (real->single-flonum x))
(define (r->d-f x) (real->double-flonum x))
(test 2.0f0 r->s-f 2)
(test 2.25f0 r->s-f 2.25)
(test 2.25f0 r->s-f 2.25f0)
(test 2.0 r->d-f 2)
(test 2.25 r->d-f 2.25)
(test 2.25 r->d-f 2.25f0)
(err/rt-test (* 'a 0))
(err/rt-test (+ 'a 0))
(err/rt-test (/ 'a 0))