add a new test
This commit is contained in:
parent
39af5ca254
commit
ca965d088a
|
@ -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)))
|
Loading…
Reference in New Issue