Altered tests.lisp to use character input streams

1 files changed, 2 insertions, 1 deletions

diff --git a/tests.lisp b/tests.lisp
index 9a1aecf..44d0a3b 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -8,7 +8,8 @@
 
 (defmacro test-with ((var input-string) &rest tests)
   `(subtest (format nil "With the input ~s ..." ,input-string)
-     (let ((,var (make-instance 'replay-streams:static-text-replay-stream :text ,input-string)))
+     (let ((,var (make-instance 'replay-streams:character-input-replay-stream
+                                :source (make-string-input-stream ,input-string))))
        ,@tests)))
 
 (defmacro results (stream expr val)