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