Add tests for jitted real->*-flonum.

(cherry picked from commit 427eaca513)
This commit is contained in:
Vincent St-Amour 2011-07-11 12:24:36 -04:00 committed by Eli Barzilay
parent cef91e1527
commit 73fb46b42b

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