From 9356833ef60615dc0cbeacabfebc2128cb5f887b Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 26 Jul 2021 18:55:17 -0700 Subject: [PATCH] Issue #379 - Added unit tests --- tests/base.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/tests/base.scm b/tests/base.scm index 8732b436..2424d020 100644 --- a/tests/base.scm +++ b/tests/base.scm @@ -17,5 +17,19 @@ (test '() (make-list -2)) ) +(test-group + "I/O" + (define p (open-input-string "one\ntwo\n")) + (test #\o (read-char p)) + (test "ne" (read-line p)) + (test "two" (read-line p)) + (test (eof-object) (read-line p)) + (define p (open-input-string "one\ntwo\n")) + (test "one" (read-line p)) + (test #\t (read-char p)) + (test #\w (read-char p)) + (test "o" (read-line p)) +) + (test-exit)