2014-02-08 12:44:19 -05:00
|
|
|
(import (scheme base)
|
2015-12-27 23:54:56 -05:00
|
|
|
(scheme write)
|
2015-06-25 03:42:51 -04:00
|
|
|
(picrin test))
|
2014-02-08 12:44:19 -05:00
|
|
|
|
2015-06-25 03:42:51 -04: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)
|
