dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* tests/ports.test: add seek/tell tests for unidirectional ports.

Browse source
This commit is contained in:
Gary Houston 1999-10-18 20:47:37 +00:00
commit 4fcd6551ff
2 changed files with 26 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/ChangeLog
View file

@ -1,3 +1,7 @@
1999-10-18 Gary Houston <ghouston@freewire.co.uk>
* tests/ports.test: add seek/tell tests for unidirectional ports.
1999-09-25 Jim Blandy <jimb@savonarola.red-bean.com>
* tests/reader.test: Check that number->string checks its radix

22
test-suite/tests/ports.test
View file

@ -115,6 +115,28 @@
(char=? (read-char port) #\s))
(delete-file filename)))
;;; Buffered output-only and input-only ports with seeking.
(catch-test-errors
(let* ((filename (test-file))
(port (open-output-file filename)))
(display "J'Accuse" port)
(pass-if "file: out tell"
(= (seek port 0 SEEK_CUR) 8))
(seek port -1 SEEK_CUR)
(write-char #\x port)
(close-port port)
(let ((iport (open-input-file filename)))
(pass-if "file: in tell 0"
(= (seek iport 0 SEEK_CUR) 0))
(read-char iport)
(pass-if "file: in tell 1"
(= (seek iport 0 SEEK_CUR) 1))
(seek iport 7 SEEK_SET)
(pass-if "file: in last char"
(char=? (read-char iport) #\x))
(close-port iport))
(delete-file filename)))
;;; unusual characters.
(catch-test-errors
(let* ((filename (test-file))