add a new test

2014-02-09 02:44:19 +09:00
parent 39af5ca254
commit ca965d088a
1 changed files with 12 additions and 0 deletions
@@ -0,0 +1,12 @@
+(import (scheme base)
+        (scheme write))
+
+; expects "piece by piece by piece.\n"
+(write
+ (parameterize
+     ((current-output-port (open-output-string)))
+   (display "piece")
+   (display " by piece ")
+   (display "by piece.")
+   (newline)
+   (get-output-string)))