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

	* tests/ports.test: tests for NUL and non-ASCII chars to fports.

2 files changed, 25 insertions, 0 deletions

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 6dd33904f..b1ad88658 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+1999-08-18  Gary Houston  <ghouston@easynet.co.uk>
+
+	* tests/ports.test: tests for NUL and non-ASCII chars to fports.
+
 1999-08-12  Gary Houston  <ghouston@easynet.co.uk>
 
 	* tests/ports.test: lseek -> seek.
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index b5034f949..88153ec49 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -115,6 +115,27 @@
 	    (char=? (read-char port) #\s))
    (delete-file filename)))
 
+;;; unusual characters.
+(catch-test-errors
+ (let* ((filename (test-file))
+	(port (open-output-file filename)))
+   (display (string #\nul (integer->char 255) (integer->char 128)
+		    #\nul) port)
+   (close-port port)
+   (let* ((port (open-input-file filename))
+	  (line (read-line port)))
+     (pass-if "file: read back NUL 1"
+	      (char=? (string-ref line 0) #\nul))
+     (pass-if "file: read back 255"
+	      (char=? (string-ref line 1) (integer->char 255)))
+     (pass-if "file: read back 128"
+	      (char=? (string-ref line 2) (integer->char 128)))
+     (pass-if "file: read back NUL 2"
+	      (char=? (string-ref line 3) #\nul))
+     (pass-if "file: EOF"
+	      (eof-object? (read-char port))))
+   (delete-file filename)))
+
 
 ;;;; Pipe ports.