Merge pull request #276 from omasanori/parameterize

Refactor t/parameterize.scm with (picrin test).
2015-06-25 16:57:13 +09:00 · 2015-06-25 16:57:13 +09:00 · fd677f1f4a
parent 8f619fcc18 dc71eba296
commit fd677f1f4a
1 changed files with 13 additions and 10 deletions
--- a/t/parameterize.scm
+++ b/t/parameterize.scm
@ -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)