Refactor t/parameterize.scm with (picrin test).

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-06-25 16:42:51 +09:00
parent 8f619fcc18
commit dc71eba296
1 changed files with 13 additions and 10 deletions

View File

@ -1,12 +1,15 @@
(import (scheme base) (import (scheme base)
(scheme write)) (picrin test))
; expects "piece by piece by piece.\n" (test-begin)
(write
(parameterize (test "piece by piece by piece.\n"
((current-output-port (open-output-string))) (parameterize
(display "piece") ((current-output-port (open-output-string)))
(display " by piece ") (display "piece")
(display "by piece.") (display " by piece ")
(newline) (display "by piece.")
(get-output-string))) (newline)
(get-output-string)))
(test-end)