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 5a2362e22ca24b7969d2432151d0b6211ead5a47..5d96200a6e45fa5dc67a2ff8ba7049dab8475a39 100644 (file)
--- 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)