diff options
Diffstat (limited to 'test-suite/tests/ports.test')
| -rw-r--r-- | test-suite/tests/ports.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 956aac191..cc46ee855 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -91,6 +91,7 @@ (seek port -2 SEEK_END) (pass-if "file: r/w 4" (char=? (read-char port) #\s)) + (close-port port) (delete-file filename)) ;;; Unbuffered input/output port with seeking. @@ -110,6 +111,7 @@ (seek port -2 SEEK_END) (pass-if "file: ub r/w 4" (char=? (read-char port) #\s)) + (close-port port) (delete-file filename)) ;;; Buffered output-only and input-only ports with seeking. @@ -155,7 +157,8 @@ (pass-if "file: read back NUL 2" (char=? (string-ref line 3) #\nul)) (pass-if "file: EOF" - (eof-object? (read-char port)))) + (eof-object? (read-char port))) + (close-port port)) (delete-file filename)) ;;; line buffering mode. |