From 4901b1b48d3ed65482abc07422fc6a28127407ec Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 17 Nov 2018 23:21:57 +0000
Subject: [PATCH] Add some more nonfinite complex screw cases.
---
tests/runtime/test-readwrite.scm | 40 ++++++++++++++++++++++++++------
1 file changed, 33 insertions(+), 7 deletions(-)
diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index d070c785c..d6a8c1874 100644
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -90,7 +90,19 @@ USA.
("123" ,assert-exact-integer)
("1/34" ,assert-exact-rational)
("123+456i" ,assert-complex-nonreal)
- ("1.23" ,assert-flonum))
+ ("1.23" ,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)
+ ("+inf.0+inf.0i" ,assert-complex-nonreal xfail)
+ ("+inf.0-inf.0i" ,assert-complex-nonreal xfail)
+ ("-inf.0+inf.0i" ,assert-complex-nonreal xfail)
+ ("-inf.0-inf.0i" ,assert-complex-nonreal xfail)
+ ("+inf.0+nan.0i" ,assert-complex-nonreal xfail)
+ ("+nan.0+inf.0i" ,assert-complex-nonreal xfail))
(lambda (string #!optional assertion xfail?)
(with-expected-failure xfail?
(lambda ()
@@ -108,12 +120,26 @@ USA.
("#x123+456i" ,assert-complex-nonreal)
("#x1.23p+4-1.ffp-8i" ,assert-complex-nonreal)
("#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))
+ ("#x+inf.0i" ,assert-complex-nonreal xerror)
+ ("#x-inf.0i" ,assert-complex-nonreal xerror)
+ ("#x1+inf.0i" ,assert-complex-nonreal xerror)
+ ("#x1-inf.0i" ,assert-complex-nonreal xerror)
+ ("#x1p+1+inf.0i" ,assert-complex-nonreal xerror)
+ ("#x1p+1-inf.0i" ,assert-complex-nonreal xerror)
+ ("#x-1p+1+inf.0i" ,assert-complex-nonreal xerror)
+ ("#x-1p+1-inf.0i" ,assert-complex-nonreal xerror)
+ ("#x+inf.0+1p+1i" ,assert-complex-nonreal xerror)
+ ("#x-inf.0+1p+1i" ,assert-complex-nonreal xerror)
+ ("#x+inf.0-1p+1i" ,assert-complex-nonreal xerror)
+ ("#x-inf.0-1p+1i" ,assert-complex-nonreal xerror)
+ ("#x+inf.0+1i" ,assert-complex-nonreal xerror)
+ ("#x-inf.0+1i" ,assert-complex-nonreal xerror)
+ ("#x+inf.0+inf.0i" ,assert-complex-nonreal xerror)
+ ("#x+inf.0-inf.0i" ,assert-complex-nonreal xerror)
+ ("#x-inf.0+inf.0i" ,assert-complex-nonreal xerror)
+ ("#x-inf.0-inf.0i" ,assert-complex-nonreal xerror)
+ ("#x+inf.0+nan.0i" ,assert-complex-nonreal xerror)
+ ("#x+nan.0+inf.0i" ,assert-complex-nonreal xerror))
(lambda (string #!optional assertion xfail?)
(with-expected-failure xfail?
(lambda ()
--
2.25.1