Adapt R7RS test suite to match LispKit's implementation (of optional features).

Author: objecthub

Sources/LispKit/Resources/Tests/R7RS.scm

@@ -778,7 +778,7 @@
 (test #f (infinite? 3))
 (test #t (infinite? +inf.0))
 (test #f (infinite? +nan.0))
-(test #t (infinite? 3.0+inf.0i))
+#;(test #t (infinite? 3.0+inf.0i))  ;; INTENDED
 
 (test #t (nan? +nan.0))
 (test #f (nan? 32))
@@ -2322,9 +2322,9 @@
 (test-numeric-syntax "+InF.0" +inf.0 "+inf.0" "+Inf.0")
 (test-numeric-syntax "-inf.0" -inf.0 "-inf.0" "-Inf.0")
 (test-numeric-syntax "-iNF.0" -inf.0 "-inf.0" "-Inf.0")
-(test-numeric-syntax "#i+nan.0" +nan.0 "+nan.0" "+NaN.0")
-(test-numeric-syntax "#i+inf.0" +inf.0 "+inf.0" "+Inf.0")
-(test-numeric-syntax "#i-inf.0" -inf.0 "-inf.0" "-Inf.0")
+#;(test-numeric-syntax "#i+nan.0" +nan.0 "+nan.0" "+NaN.0") ;; INTENDED
+#;(test-numeric-syntax "#i+inf.0" +inf.0 "+inf.0" "+Inf.0") ;; INTENDED
+#;(test-numeric-syntax "#i-inf.0" -inf.0 "-inf.0" "-Inf.0") ;; INTENDED
 ;; Exact ratios
 (test-numeric-syntax "1/2" (/ 1 2))
 (test-numeric-syntax "#e1/2" (/ 1 2) "1/2")
@@ -2334,11 +2334,11 @@
 (test-numeric-syntax "#e0/10" 0 "0")
 (test-numeric-syntax "#i3/2" (/ 3.0 2.0) "1.5")
 ;; Exact complex
-(test-numeric-syntax "1+2i" (make-rectangular 1 2))
-(test-numeric-syntax "1+2I" (make-rectangular 1 2) "1+2i")
-(test-numeric-syntax "1-2i" (make-rectangular 1 -2))
-(test-numeric-syntax "-1+2i" (make-rectangular -1 2))
-(test-numeric-syntax "-1-2i" (make-rectangular -1 -2))
+(test-numeric-syntax "1+2i" (make-rectangular 1 2) "1.0+2.0i")
+(test-numeric-syntax "1+2I" (make-rectangular 1 2) "1+2i" "1.0+2.0i")
+(test-numeric-syntax "1-2i" (make-rectangular 1 -2) "1.0-2.0i")
+(test-numeric-syntax "-1+2i" (make-rectangular -1 2) "-1.0+2.0i")
+(test-numeric-syntax "-1-2i" (make-rectangular -1 -2) "-1.0-2.0i")
 (test-numeric-syntax "+i" (make-rectangular 0 1) "+i" "+1i" "0+i" "0+1i" "0.0+1.0i")
 (test-numeric-syntax "0+i" (make-rectangular 0 1) "+i" "+1i" "0+i" "0+1i" "0.0+1.0i")
 (test-numeric-syntax "0+1i" (make-rectangular 0 1) "+i" "+1i" "0+i" "0+1i" "0.0+1.0i")
@@ -2362,11 +2362,11 @@
 #;(test-numeric-syntax "0.5+3/4i" (make-rectangular 0.5 (/ 3 4))
   "0.5+0.75i" ".5+.75i" "0.5+3/4i" ".5+3/4i" "500.0e-3+750.0e-3i")    ;; INTENDED
 ;; Complex NaN, Inf (rectangular notation)
-(test-numeric-syntax "+nan.0+nan.0i" (make-rectangular +nan.0 +nan.0) "+NaN.0+NaN.0i")
-(test-numeric-syntax "+inf.0+inf.0i" (make-rectangular +inf.0 +inf.0) "+Inf.0+Inf.0i")
-(test-numeric-syntax "-inf.0+inf.0i" (make-rectangular -inf.0 +inf.0) "-Inf.0+Inf.0i")
-(test-numeric-syntax "-inf.0-inf.0i" (make-rectangular -inf.0 -inf.0) "-Inf.0-Inf.0i")
-(test-numeric-syntax "+inf.0-inf.0i" (make-rectangular +inf.0 -inf.0) "+Inf.0-Inf.0i")
+#;(test-numeric-syntax "+nan.0+nan.0i" (make-rectangular +nan.0 +nan.0) "+NaN.0+NaN.0i") ;; INTENDED
+#;(test-numeric-syntax "+inf.0+inf.0i" (make-rectangular +inf.0 +inf.0) "+Inf.0+Inf.0i") ;; INTENDED
+#;(test-numeric-syntax "-inf.0+inf.0i" (make-rectangular -inf.0 +inf.0) "-Inf.0+Inf.0i") ;; INTENDED
+#;(test-numeric-syntax "-inf.0-inf.0i" (make-rectangular -inf.0 -inf.0) "-Inf.0-Inf.0i") ;; INTENDED
+#;(test-numeric-syntax "+inf.0-inf.0i" (make-rectangular +inf.0 -inf.0) "+Inf.0-Inf.0i") ;; INTENDED
 ;; Complex numbers (polar notation)
 ;; Need to account for imprecision in write output.
 ;;(test-numeric-syntax "1@2" -0.416146836547142+0.909297426825682i
@@ -2405,7 +2405,7 @@
 ;; Complex numbers with prefixes
 ;;(test-numeric-syntax "#x10+11i" (make-rectangular 16 17) "16+17i")
 (test-numeric-syntax "#d1.0+1.0i" (make-rectangular 1.0 1.0) "1.0+1.0i" "1.+1.i")
-(test-numeric-syntax "#d10+11i" (make-rectangular 10.0 11.0) "10+11i")  ;; INTENDED (was 10 11)
+(test-numeric-syntax "#d10+11i" (make-rectangular 10.0 11.0) "10+11i" "10.0+11.0i")
 ;;(test-numeric-syntax "#o10+11i" (make-rectangular 8 9) "8+9i" "8.0+11.0i")
 ;;(test-numeric-syntax "#b10+11i" (make-rectangular 2 3) "2+3i" "2.0+11.0i")
 ;;(test-numeric-syntax "#e1.0+1.0i" (make-rectangular 1 1) "1+1i" "1+i")