From 0089f60e919d4147fa7075aaeef348c6a11b0f80 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 29 Jan 2004 12:01:07 +0000
Subject: [PATCH] Annotate certain tests to disable them when simple streams or
 gray streams are present.

---
 ansi-tests/clear-input.lsp         | 10 ++++++++++
 ansi-tests/file-length.lsp         |  3 +++
 ansi-tests/listen.lsp              |  9 ++++-----
 ansi-tests/notes.lsp               |  7 +++++++
 ansi-tests/stream-element-type.lsp |  1 +
 5 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/ansi-tests/clear-input.lsp b/ansi-tests/clear-input.lsp
index f329c888..045fea9c 100644
--- a/ansi-tests/clear-input.lsp
+++ b/ansi-tests/clear-input.lsp
@@ -29,14 +29,24 @@
 ;;; Error cases
 
 (deftest clear-input.error.1
+  :notes (:assume-no-simple-streams)
   (signals-error (clear-input t nil) program-error)
   t)
 
 (deftest clear-input.error.2
+  :notes (:assume-no-simple-streams)
   (signals-error (clear-input nil nil) program-error)
   t)
 
 (deftest clear-input.error.3
+  (signals-error (clear-input t nil nil) program-error)
+  t)
+
+(deftest clear-input.error.4
+  (signals-error (clear-input nil nil nil) program-error)
+  t)
+
+(deftest clear-input.error.5
   (loop for x in *mini-universe*
 	unless (or (member x '(nil t))
 		   (typep x 'stream)
diff --git a/ansi-tests/file-length.lsp b/ansi-tests/file-length.lsp
index 1a150634..1fab2b7d 100644
--- a/ansi-tests/file-length.lsp
+++ b/ansi-tests/file-length.lsp
@@ -27,6 +27,7 @@
   nil)
 
 (deftest file-length.error.4
+  :notes (:assume-no-simple-streams :assume-no-gray-streams)
   (signals-error (with-input-from-string (s "abc") (file-length s))
 		 type-error)
   t)
@@ -86,6 +87,7 @@
   t)
 
 (deftest file-length.error.11
+  :notes (:assume-no-simple-streams :assume-no-gray-streams)
   (signals-error
    (let ((s (make-string-input-stream "abcde")))
      (unwind-protect (file-length s) (close s)))
@@ -93,6 +95,7 @@
   t)
 
 (deftest file-length.error.12
+  :notes (:assume-no-simple-streams :assume-no-gray-streams)
   (signals-error
    (let ((s (make-string-output-stream)))
      (unwind-protect (file-length s) (close s)))
diff --git a/ansi-tests/listen.lsp b/ansi-tests/listen.lsp
index fff24e43..f9680aa1 100644
--- a/ansi-tests/listen.lsp
+++ b/ansi-tests/listen.lsp
@@ -50,11 +50,10 @@
 ;;; Error tests
 
 (deftest listen.error.1
+  :notes (:assume-no-simple-streams)
   (signals-error (listen *standard-input* nil) program-error)
   t)
 
-  
-		  
-
-
-
+(deftest listen.error.2
+  (signals-error (listen *standard-input* nil nil) program-error)
+  t)
diff --git a/ansi-tests/notes.lsp b/ansi-tests/notes.lsp
index e94b6fc2..cd36ce4a 100644
--- a/ansi-tests/notes.lsp
+++ b/ansi-tests/notes.lsp
@@ -19,3 +19,10 @@
 
 (defnote :type-of/strict-builtins
   "Interpret requirement 1.a on the TYPE-OF page to apply to all built-in types that contain the object, not just to some builtin type that contains the object.")
+
+(defnote :assume-no-gray-streams
+  "Disable the test if gray streams are present.")
+
+(defnote :assume-no-simple-streams
+  "Disable the test if simple streams are present.")
+
diff --git a/ansi-tests/stream-element-type.lsp b/ansi-tests/stream-element-type.lsp
index fdbc4bf7..6142b229 100644
--- a/ansi-tests/stream-element-type.lsp
+++ b/ansi-tests/stream-element-type.lsp
@@ -62,6 +62,7 @@
 
 
 (deftest stream-element-type.5
+  :notes (:assume-no-simple-streams)
   (let ((pn "foo.txt"))
     (delete-all-versions pn)
     (let ((s (open pn :direction :output)))
-- 
GitLab