diff options
author | Mark H Weaver <mhw@netris.org> | 2014-01-14 23:53:08 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-01-14 23:53:08 -0500 |
commit | fb484fefebdd9ebcf43169b391f704069b3d4b09 (patch) | |
tree | 9d94fd0a5ff841ace78f620d6162558baa7fd216 /test-suite/tests | |
parent | c92ee2b38cb1ace800de081c9211120afea0c595 (diff) | |
parent | 1fc651e3a5249fa35d143628d27243e96b90a0bd (diff) | |
download | guile-fb484fefebdd9ebcf43169b391f704069b3d4b09.tar.gz |
Merge branch 'stable-2.0'
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) |