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

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
2015-06-25 16:42:51 +09:00
parent 8f619fcc18
commit dc71eba296
1 changed files with 13 additions and 10 deletions
@@ -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)