summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2014-01-14 23:53:08 -0500
committerMark H Weaver <mhw@netris.org>2014-01-14 23:53:08 -0500
commitfb484fefebdd9ebcf43169b391f704069b3d4b09 (patch)
tree9d94fd0a5ff841ace78f620d6162558baa7fd216 /test-suite/tests
parentc92ee2b38cb1ace800de081c9211120afea0c595 (diff)
parent1fc651e3a5249fa35d143628d27243e96b90a0bd (diff)
downloadguile-fb484fefebdd9ebcf43169b391f704069b3d4b09.tar.gz
Merge branch 'stable-2.0'
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/print.test5
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)