summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/utils.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm
index f54cfdd..b787d9f 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -30,4 +30,9 @@
(call-with-port (open-bytevector-input-port (make-bytevector 0))
(cut read-bytes-till <> (make-bytevector 1)))))
+(test-assert "read-while returns eof-object on end of file"
+ (eof-object?
+ (call-with-input-string ""
+ (cut read-while <> read identity))))
+
(test-end "utils")