From 20a2c02b1944d60bc458dd2d8782e850ca2408a7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 28 May 2013 21:23:52 +0900 Subject: [PATCH] Adding backslash line read tests. --- tests/r7rs-tests.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index 7ef9f57a..5cd60159 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -1725,6 +1725,11 @@ (test #x22 (char->integer (string-ref (read (open-input-string "\"\\\"\"")) 0))) (test #x7C (char->integer (string-ref (read (open-input-string "\"\\|\"")) 0))) (test "line 1\nline 2\n" (read (open-input-string "\"line 1\nline 2\n\""))) +(test "line 1continued\n" (read (open-input-string "\"line 1\\\ncontinued\n\""))) +(test "line 1continued\n" (read (open-input-string "\"line 1\\ \ncontinued\n\""))) +(test "line 1continued\n" (read (open-input-string "\"line 1\\\n continued\n\""))) +(test "line 1continued\n" (read (open-input-string "\"line 1\\ \t \n \t continued\n\""))) +(test "line 1\n\nline 3\n" (read (open-input-string "\"line 1\\ \t \n \t \n\nline 3\n\""))) (test #x03BB (char->integer (string-ref (read (open-input-string "\"\\x03BB;\"")) 0))) (test-end)