From: Olivier dion <olivier-d...@proton.me> * test-suite/tests/reader.test: Add the tests. --- test-suite/tests/reader.test | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test index 27daf6106..fb31575dd 100644 --- a/test-suite/tests/reader.test +++ b/test-suite/tests/reader.test @@ -200,7 +200,16 @@ (pass-if-equal '(#f) (read-string "(#FALSE)")) (pass-if-equal '(#f) (read-string "(#FaLsE)")) - (pass-if (eof-object? (read-string "#!!#")))) + (pass-if (eof-object? (read-string "#!!#"))) + + (pass-if-equal "raw" (read-string "#\"raw\"")) + (pass-if-equal "@raw" (read-string "#\"@@raw\"")) + (pass-if-equal "@raw" (read-string "#\"@@raw@\"")) + (pass-if-equal "@raw@" (read-string "#\"@@raw@@\"")) + (pass-if-equal '(format #f "true=~a" (or #f #t)) + (read-string "#\"true=@(or #f #t)\"")) + (pass-if-equal '(format #f "@@~a" '@) + (read-string "#\"@@@@@'@\""))) -- 2.38.1