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

23
t/parameterize.scm
View File

@ -1,12 +1,15 @@
(import (scheme base)
(scheme write))
(picrin test))
; 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)))
(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)