+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.
(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)))
+
\f
;;;; Pipe ports.