From 7ec793264aa8a34f67050be8f5e407dd6e65e57c Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 17 Nov 2018 09:13:21 +0000 Subject: [PATCH] Add some complex infinite screw cases, xfail. --- tests/runtime/test-readwrite.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm index 123db6c73..d070c785c 100644 --- a/tests/runtime/test-readwrite.scm +++ b/tests/runtime/test-readwrite.scm @@ -107,7 +107,13 @@ USA. ("#x1/34" ,assert-exact-rational) ("#x123+456i" ,assert-complex-nonreal) ("#x1.23p+4-1.ffp-8i" ,assert-complex-nonreal) - ("#x1.23p+0" ,assert-flonum)) + ("#x1.23p+0" ,assert-flonum) + ("+inf.0i" ,assert-complex-nonreal xfail) + ("-inf.0i" ,assert-complex-nonreal xfail) + ("1+inf.0i" ,assert-complex-nonreal xfail) + ("1-inf.0i" ,assert-complex-nonreal xfail) + ("+inf.0+1i" ,assert-complex-nonreal xfail) + ("-inf.0+1i" ,assert-complex-nonreal xfail)) (lambda (string #!optional assertion xfail?) (with-expected-failure xfail? (lambda () -- 2.25.1