diff options
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/print.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/tests/print.test b/test-suite/tests/print.test index 7269887d6..6ef0e9fc7 100644 --- a/test-suite/tests/print.test +++ b/test-suite/tests/print.test @@ -63,6 +63,11 @@ "bar | backslash \\ alarm \a backspace \b tab \t newline \n cr \r null \0 del " (string #\del))))) + (pass-if-equal "brackets" + "|()[]{}|" + (write-with-options '(r7rs-symbols) + (string->symbol "()[]{}"))) + (pass-if-equal "starts with bar" "|\\|foo|" (write-with-options '(r7rs-symbols) |