summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2019-07-28 11:32:16 +0530
committerArun Isaac2019-07-28 12:13:44 +0530
commit97d4fb537a6ca5a2ffe4da18bd1cbde2d4084fd0 (patch)
treed48dc06033249eb8b3b31902beb4c1f37c189173 /tests
parentb6c904c1b57533e7a3dd4e15ed58708a06e94bc8 (diff)
downloadguile-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.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")