diff options
Diffstat (limited to 'test-suite/tests/reader.test')
-rw-r--r-- | test-suite/tests/reader.test | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test index f350e73a6..437706b00 100644 --- a/test-suite/tests/reader.test +++ b/test-suite/tests/reader.test @@ -428,6 +428,7 @@ (with-test-prefix "#{}#" (pass-if (equal? (read-string "#{}#") '#{}#)) + (pass-if (not (equal? (read-string "(a #{.}# b)") '(a . b)))) (pass-if (equal? (read-string "#{a}#") 'a)) (pass-if (equal? (read-string "#{a b}#") '#{a b}#)) (pass-if-exception "#{" exception:eof-in-symbol |