diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/ChangeLog | 5 | ||||
| -rw-r--r-- | test-suite/tests/ports.test | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 5fae02107..b91212dad 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,8 @@ +2001-11-04 Stefan Jahn <stefan@lkcc.org> + + * tests/ports.test: Run (close-port) before (delete-file) if + necessary/advisory. + 2001-10-26 Dirk Herrmann <D.Herrmann@tu-bs.de> * tests/eval.test: Added tests for promises. 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. |