Commit 0089f60e authored by pfdietz's avatar pfdietz

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

parent f15abc8a
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment