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

Merge pull request #276 from omasanori/parameterize 

Refactor t/parameterize.scm with (picrin test).
This commit is contained in:
Yuichi Nishiwaki 2015-06-25 16:57:13 +09:00
parent 8f619fcc18 dc71eba296
commit fd677f1f4a
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)