2
;;;; Author: Paul Dietz
3
;;;; Created: Wed Jan 28 06:41:46 2004
4
;;;; Contains: Tests of FORCE-OUTPUT
8
(deftest force-output.1
12
(deftest force-output.2
16
(deftest force-output.3
20
(deftest force-output.4
21
(loop for s in (list *debug-io* *error-output* *query-io*
22
*standard-output* *trace-output* *terminal-io*)
23
for results = (multiple-value-list (force-output s))
24
unless (equal results '(nil))
28
(deftest force-output.5
29
(let ((os (make-string-output-stream)))
30
(let ((*terminal-io* (make-two-way-stream (make-string-input-stream "")
35
(deftest force-output.6
36
(let ((*standard-output* (make-string-output-stream)))
43
(deftest force-output.error.1
44
(signals-error (force-output nil nil) program-error)
47
(deftest force-output.error.2
48
(signals-error (force-output t nil) program-error)
51
(deftest force-output.error.3
52
(loop for x in *mini-universe*
53
unless (or (member x '(nil t))
56
(eval `(multiple-value-list
57
(signals-error (force-output ',x) type-error)))