From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 16 Nov 2018 07:41:19 +0000 (+0000)
Subject: Test a couple edge cases for hexadecimal floating-point parsing.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~81
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ec113ed67903b712832892c1309eac3532869013;p=mit-scheme.git

Test a couple edge cases for hexadecimal floating-point parsing.

One is xfail right now because I defined flo:largest-positive-normal
wrong -- oops!
---

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)