From f117caffc472a524a423dbba398fe453317b8865 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 7 Dec 2018 04:11:01 +0000 Subject: [PATCH] flo:make-nan error reporting is busted. --- tests/runtime/test-flonum.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) 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 -- 2.25.1