(define (test-print name expected expression)
  (test name expected (with-output-to-string (lambda () expression))))

(test-print "fake example" "hi\n" (print "hi"))
hi
fake example ......................................................... [ FAIL]
    expected "hi\n" but got ""
    (with-output-to-string (lambda () expression))
FAIL