diff options
| -rw-r--r-- | tests/utils.scm | 5 |
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") |