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

1999-08-19 Gary Houston <ghouston@easynet.co.uk>

Browse source 
* tests/ports.test: test line-buffering of fports.
This commit is contained in:
Gary Houston 1999-08-19 21:29:00 +00:00
commit 0eb2e8cd94
2 changed files with 18 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-08-19 Gary Houston <ghouston@easynet.co.uk>
* tests/ports.test: test line-buffering of fports.
1999-08-18 Gary Houston <ghouston@easynet.co.uk>
* tests/ports.test: tests for NUL and non-ASCII chars to fports.

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

@ -136,6 +136,20 @@
(eof-object? (read-char port))))
(delete-file filename)))
;;; line buffering mode.
(catch-test-errors
(let* ((filename (test-file))
(port (open-file filename "wl"))
(test-string "one line more or less"))
(write-line test-string port)
(let* ((in-port (open-input-file filename))
(line (read-line in-port)))
(close-port in-port)
(close-port port)
(pass-if "file: line buffering"
(string=? line test-string)))
(delete-file filename)))
;;;; Pipe ports.