From dc71eba2966f5d51075030e8ef9aa0709c8dd00f Mon Sep 17 00:00:00 2001 From: OGINO Masanori Date: Thu, 25 Jun 2015 16:42:51 +0900 Subject: [PATCH] Refactor t/parameterize.scm with (picrin test). Signed-off-by: OGINO Masanori --- t/parameterize.scm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) 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)