From ad65af3a22d3f69387fdb4fb242e235a531f38b8 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 30 Jan 2004 13:23:42 +0000 Subject: [PATCH] Fixed some comments, and added assertions to check various stream functions on synonym streams. --- ansi-tests/make-broadcast-stream.lsp | 2 +- ansi-tests/make-synonym-stream.lsp | 27 ++++++++++++++++++++++++++- ansi-tests/make-two-way-stream.lsp | 2 +- 3 files changed, 28 insertions(+), 3 deletions(-) diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp index 7eb7a5c3..663b1292 100644 --- a/ansi-tests/make-broadcast-stream.lsp +++ b/ansi-tests/make-broadcast-stream.lsp @@ -55,7 +55,7 @@ "This is a test") ;;; FIXME -;;; Add tests for: close, stream-element-type, +;;; Add tests for: close, ;;; peek-char, read-char-no-hang, terpri, fresh-line, unread-char, ;;; read-line, write-line, write-string, read-sequence, write-sequence, ;;; read-byte, write-byte, listen, clear-input, finish-output, force-output, diff --git a/ansi-tests/make-synonym-stream.lsp b/ansi-tests/make-synonym-stream.lsp index eb49adb3..7393e4d9 100644 --- a/ansi-tests/make-synonym-stream.lsp +++ b/ansi-tests/make-synonym-stream.lsp @@ -13,6 +13,10 @@ (assert (typep ss 'stream)) (assert (typep ss 'synonym-stream)) (assert (input-stream-p ss)) + (assert (not (output-stream-p ss))) + (assert (open-stream-p ss)) + (assert (streamp ss)) + (assert (stream-element-type ss)) (values (read-char *s*) (read-char ss) @@ -30,6 +34,10 @@ (assert (typep ss 'stream)) (assert (typep ss 'synonym-stream)) (assert (input-stream-p ss)) + (assert (not (output-stream-p ss))) + (assert (open-stream-p ss)) + (assert (streamp ss)) + (assert (stream-element-type ss)) (read-char ss))) #\z) @@ -41,14 +49,31 @@ (assert (typep ss 'stream)) (assert (typep ss 'synonym-stream)) (assert (output-stream-p ss)) + (assert (not (input-stream-p ss))) + (assert (open-stream-p ss)) + (assert (streamp ss)) + (assert (stream-element-type ss)) (write-char #\a *s*) (write-char #\b ss) (write-char #\x *s*) (write-char #\y ss))) "abxy") +(deftest make-synonym-stream.4 + (let ((ss (make-synonym-stream '*terminal-io*))) + (assert (typep ss 'stream)) + (assert (typep ss 'synonym-stream)) + (assert (output-stream-p ss)) + (assert (input-stream-p ss)) + (assert (open-stream-p ss)) + (assert (streamp ss)) + (assert (stream-element-type ss)) + nil) + nil) + + ;;; FIXME -;;; Add tests for: open-stream-p, close, stream-element-type, streamp, +;;; Add tests for: close, ;;; peek-char, read-char-no-hang, terpri, fresh-line, unread-char, ;;; read-line, write-line, write-string, read-sequence, write-sequence, ;;; read-byte, write-byte, listen, clear-input, finish-output, force-output, diff --git a/ansi-tests/make-two-way-stream.lsp b/ansi-tests/make-two-way-stream.lsp index f820c144..bcf8058f 100644 --- a/ansi-tests/make-two-way-stream.lsp +++ b/ansi-tests/make-two-way-stream.lsp @@ -27,7 +27,7 @@ #\f #\b #\o #\a #\o #\r "bar") ;;; FIXME -;;; Add tests for: close, stream-element-type, +;;; Add tests for: close, ;;; peek-char, read-char-no-hang, terpri, fresh-line, unread-char, ;;; read-line, write-line, write-string, read-sequence, write-sequence, ;;; read-byte, write-byte, listen, clear-input, finish-output, force-output, -- GitLab