From f8b7144f483228a9ffe4cb1aa0b4bfe2a75a8d66 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 18 Nov 2018 04:04:59 +0000 Subject: [PATCH] More signed zero screw cases in complex numbers. --- tests/runtime/test-readwrite.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm index 46f5d5126..86575759a 100644 --- a/tests/runtime/test-readwrite.scm +++ b/tests/runtime/test-readwrite.scm @@ -65,6 +65,9 @@ USA. (define assert-exact-rational (predicate-assertion exact-rational? "exact rational")) +(define assert-real + (predicate-assertion real? "real number")) + (define (complex-nonreal? object) (and (complex? object) (not (real? object)))) @@ -90,6 +93,9 @@ USA. ("123" ,assert-exact-integer) ("1/34" ,assert-exact-rational) ("123+456i" ,assert-complex-nonreal) + ("-0.i" ,assert-real xfail) ;real? + ("0.-0.i" ,assert-real xfail) ;real? + ("-0.-0.i" ,assert-real xfail) ;real? ("1.23" ,assert-flonum) ("+inf.0i" ,assert-complex-nonreal) ("-inf.0i" ,assert-complex-nonreal) -- 2.25.1