(import (scheme base)
        (scheme write)
        (picrin test))

(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)