diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp index 7eb7a5c30c20d71d0302d50a0e387f3461269c92..663b1292859b3c9c18c73afae8e09ffbc901a11d 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 eb49adb3d6da8dabccb033ea080823d634084c41..7393e4d912dedb07bd24dee25a46173e0fd6a5f6 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 f820c1447ee17ab3a0dedd6869e71428e380b40f..bcf8058f604909e81b4783da737c630d155d4665 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,