From 589bd920a9e910073b5a174ceea8d2dae689edae Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Wed, 5 Jun 2019 22:45:00 -0300 Subject: [PATCH] more tests for (inexact->exact +inf.0) Add test where the expression is not in tail position, to ensure that the optimizer doesn't remove it. --- pkgs/racket-test-core/tests/racket/number.rktl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/number.rktl b/pkgs/racket-test-core/tests/racket/number.rktl index 3899e2de8b..e5cc339f5c 100644 --- a/pkgs/racket-test-core/tests/racket/number.rktl +++ b/pkgs/racket-test-core/tests/racket/number.rktl @@ -739,6 +739,9 @@ (err/rt-test (inexact->exact +inf.0)) (err/rt-test (inexact->exact -inf.0)) (err/rt-test (inexact->exact +nan.0)) +(err/rt-test (begin (inexact->exact +inf.0) 'not-an-error)) +(err/rt-test (begin (inexact->exact -inf.0) 'not-an-error)) +(err/rt-test (begin (inexact->exact +nan.0) 'not-an-error)) #reader "maybe-single.rkt" (when has-single-flonum?