From ca965d088a45246c3c900c7d8a13b7907582483d Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 9 Feb 2014 02:44:19 +0900
Subject: [PATCH] add a new test

---
 t/parameterize.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 t/parameterize.scm

diff --git a/t/parameterize.scm b/t/parameterize.scm
new file mode 100644
index 00000000..4d0a8571
--- /dev/null
+++ b/t/parameterize.scm
@@ -0,0 +1,12 @@
+(import (scheme base)
+        (scheme write))
+
+; 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)))