From 4901b1b48d3ed65482abc07422fc6a28127407ec Mon Sep 17 00:00:00 2001 From: Taylor R Campbell 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