picrin/t/parameterize.scm

17 lines
340 B
Scheme
Raw Normal View History

2014-02-08 12:44:19 -05:00
(import (scheme base)
(scheme write)
(picrin test))
2014-02-08 12:44:19 -05:00
(test-begin)
(test "piece by piece by piece.\n"
(parameterize
((current-output-port (open-output-string)))
(display "piece")
(display " by piece ")
(display "by piece.")
(newline)
(get-output-string)))
(test-end)