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

	* tests/ports.test: test line-buffering of fports.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index b1ad886..175b814 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -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.

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 88153ec..ce796d1 100644 (file)
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -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)))
+
 \f
 ;;;; Pipe ports.