From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 7 Dec 2018 04:11:01 +0000 (+0000)
Subject: flo:make-nan error reporting is busted.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~45
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f117caffc472a524a423dbba398fe453317b8865;p=mit-scheme.git

flo:make-nan error reporting is busted.
---

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index fecc18054..92895ef79 100644
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -1153,3 +1153,14 @@ USA.
                                  (lambda () (flo:logb x)))
     (assert-only-except/no-traps (flo:exception:invalid-operation)
                                  (lambda () (flo:logb (flo:negate x))))))
+
+(define-enumerated-test 'flo:make-nan/error
+  `((#f #f 0 ,expect-error)
+    (#t #f 0 ,expect-error))
+  (lambda (sign quiet? payload #!optional xfail)
+    (with-expected-failure xfail
+      (lambda ()
+        (assert-error
+         (lambda ()
+           (flo:make-nan sign quiet? payload))
+         (list condition-type:bad-range-argument))))))
\ No newline at end of file