From ec113ed67903b712832892c1309eac3532869013 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 16 Nov 2018 07:41:19 +0000 Subject: [PATCH] Test a couple edge cases for hexadecimal floating-point parsing. One is xfail right now because I defined flo:largest-positive-normal wrong -- oops! --- tests/runtime/test-numpar.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm index 5a2362e22..5d96200a6 100644 --- a/tests/runtime/test-numpar.scm +++ b/tests/runtime/test-numpar.scm @@ -89,6 +89,8 @@ USA. (define-eqv-test "#e#x1.1p4" #x11) (define-eqv-test "#e#x1.1p-1" (* #x11 (expt 2 (- (+ 1 4))))) (define-eqv-test "#x1.1p-1" (exact->inexact (* #x11 (expt 2 (- (+ 1 4)))))) +(define-eqv-test "#x1p-1022" flo:smallest-positive-normal) +(define-eqv-test "#x1.fffffffffffffp+1023" flo:largest-positive-normal 'xfail) (define-eqv-test "#b0." 0.) (define-eqv-test "#b0.+0.i" 0.+0.i) -- 2.25.1