add a new test

This commit is contained in:
Yuichi Nishiwaki 2014-02-09 02:44:19 +09:00
parent 39af5ca254
commit ca965d088a
1 changed files with 12 additions and 0 deletions

12
t/parameterize.scm Normal file
View File

@ -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)))