diff options
| author | Arun Isaac | 2019-07-28 11:32:16 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-07-28 12:13:44 +0530 |
| commit | 97d4fb537a6ca5a2ffe4da18bd1cbde2d4084fd0 (patch) | |
| tree | d48dc06033249eb8b3b31902beb4c1f37c189173 /tests | |
| parent | b6c904c1b57533e7a3dd4e15ed58708a06e94bc8 (diff) | |
| download | guile-email-97d4fb537a6ca5a2ffe4da18bd1cbde2d4084fd0.tar.gz guile-email-97d4fb537a6ca5a2ffe4da18bd1cbde2d4084fd0.tar.lz guile-email-97d4fb537a6ca5a2ffe4da18bd1cbde2d4084fd0.zip | |
tests: Add read-while eof-object test.
* tests/utils.scm ("read-while returns eof-object on end of file"):
New test.
Diffstat (limited to 'tests')
| -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") |