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