From bad6d23687a67b7c31b3b4cb75701929a09396db Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 28 Nov 2018 16:55:06 +0000 Subject: [PATCH] Merge these cases again now that the xfails are fixed. --- tests/runtime/test-flonum.scm | 26 ++------------------------ 1 file changed, 2 insertions(+), 24 deletions(-) diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm index bf949d251..83c5f3cc0 100644 --- a/tests/runtime/test-flonum.scm +++ b/tests/runtime/test-flonum.scm @@ -368,18 +368,7 @@ USA. (+inf.0 #t #f) (+nan.0 #f #f))) -(define-lconstcomp-test '>=/lconst flo:safe>= flo:>= 0. - `((-inf.0 #t #f) - (-1. #t #f) - (,subnormal- #t #f) - (-0. #t #t) - (+0. #t #t) - (,subnormal+ #f #t) - (+1. #f #t) - (+inf.0 #f #t) - (+nan.0 #f #f))) - -(define-rconstcomp-test '>=/rconst flo:safe>= flo:>= 0. +(define-constcomp-test '>= flo:safe>= flo:>= 0. `((-inf.0 #t #f) (-1. #t #f) (,subnormal- #t #f) @@ -434,18 +423,7 @@ USA. (+inf.0 #t #f) (+nan.0 #f #f))) -(define-lconstcomp-test '>=/lconst flo:safe>= flo:>= 1. - `((-inf.0 #t #f) - (-1. #t #f) - (,subnormal- #t #f) - (-0. #t #f) - (+0. #t #f) - (,subnormal+ #t #f) - (+1. #t #t) - (+inf.0 #f #t) - (+nan.0 #f #f))) - -(define-rconstcomp-test '>=/rconst flo:safe>= flo:>= 1. +(define-constcomp-test '>= flo:safe>= flo:>= 1. `((-inf.0 #t #f) (-1. #t #f) (,subnormal- #t #f) -- 2.25.1