conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
t/parameterize.scm
View File

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