Skip to content
Snippets Groups Projects
Commit 0089f60e authored by pfdietz's avatar pfdietz
Browse files

Annotate certain tests to disable them when simple streams or gray streams are present.

parent f15abc8a
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
......@@ -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)))
......
......@@ -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)
......@@ -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.")
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment