From 73fb46b42bba866c99aa69c06f1b006cb1f6c283 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 11 Jul 2011 12:24:36 -0400 Subject: [PATCH] Add tests for jitted real->*-flonum. (cherry picked from commit 427eaca513b06ce24ab527acc7ac783b0b2dc4d3) --- collects/tests/racket/number.rktl | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/collects/tests/racket/number.rktl b/collects/tests/racket/number.rktl index 7c55c1ec93..15a9c0991f 100644 --- a/collects/tests/racket/number.rktl +++ b/collects/tests/racket/number.rktl @@ -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))