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

Added tests for finish-output, force-output, and clear-output

parent 62d78113
No related branches found
No related tags found
No related merge requests found
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Wed Jan 28 06:43:17 2004
;;;; Contains: Tests of CLEAR-OUTPUT
(in-package :cl-test)
(deftest clear-output.1
(progn (finish-output) (clear-output))
nil)
(deftest clear-output.2
(progn (finish-output) (clear-output t))
nil)
(deftest clear-output.3
(progn (finish-output) (clear-output nil))
nil)
(deftest clear-output.4
(loop for s in (list *debug-io* *error-output* *query-io*
*standard-output* *trace-output* *terminal-io*)
for dummy = (finish-output s)
for results = (multiple-value-list (clear-output s))
unless (equal results '(nil))
collect s)
nil)
;;; Error tests
(deftest clear-output.error.1
(signals-error (clear-output nil nil) program-error)
t)
(deftest clear-output.error.2
(signals-error (clear-output t nil) program-error)
t)
(deftest clear-output.error.3
(loop for x in *mini-universe*
unless (or (member x '(nil t))
(typep x 'stream)
(equalt
(eval `(multiple-value-list
(signals-error (clear-output ',x) type-error)))
'(t)))
collect x)
nil)
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Wed Jan 28 06:38:20 2004
;;;; Contains: Tests of FINISH-OUTPUT
(in-package :cl-test)
(deftest finish-output.1
(finish-output)
nil)
(deftest finish-output.2
(finish-output t)
nil)
(deftest finish-output.3
(finish-output nil)
nil)
(deftest finish-output.4
(loop for s in (list *debug-io* *error-output* *query-io*
*standard-output* *trace-output* *terminal-io*)
for results = (multiple-value-list (finish-output s))
unless (equal results '(nil))
collect s)
nil)
;;; Error tests
(deftest finish-output.error.1
(signals-error (finish-output nil nil) program-error)
t)
(deftest finish-output.error.2
(signals-error (finish-output t nil) program-error)
t)
(deftest finish-output.error.3
(loop for x in *mini-universe*
unless (or (member x '(nil t))
(typep x 'stream)
(equalt
(eval `(multiple-value-list
(signals-error (finish-output ',x) type-error)))
'(t)))
collect x)
nil)
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Wed Jan 28 06:41:46 2004
;;;; Contains: Tests of FORCE-OUTPUT
(in-package :cl-test)
(deftest force-output.1
(force-output)
nil)
(deftest force-output.2
(force-output t)
nil)
(deftest force-output.3
(force-output nil)
nil)
(deftest force-output.4
(loop for s in (list *debug-io* *error-output* *query-io*
*standard-output* *trace-output* *terminal-io*)
for results = (multiple-value-list (force-output s))
unless (equal results '(nil))
collect s)
nil)
;;; Error tests
(deftest force-output.error.1
(signals-error (force-output nil nil) program-error)
t)
(deftest force-output.error.2
(signals-error (force-output t nil) program-error)
t)
(deftest force-output.error.3
(loop for x in *mini-universe*
unless (or (member x '(nil t))
(typep x 'stream)
(equalt
(eval `(multiple-value-list
(signals-error (force-output ',x) type-error)))
'(t)))
collect x)
nil)
......@@ -30,4 +30,9 @@
(load "open.lsp")
(load "stream-external-format.lsp")
(load "with-open-file.lsp")
(load "listen.lsp")
\ No newline at end of file
(load "listen.lsp")
(load "clear-input.lsp")
(load "finish-output.lsp")
(load "force-output.lsp")
(load "clear-output.lsp")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment