diff --git a/t/parameterize.scm b/t/parameterize.scm
index 4d0a8571..e5454136 100644
--- 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)