diff --git a/ansi-tests/clear-output.lsp b/ansi-tests/clear-output.lsp new file mode 100644 index 0000000000000000000000000000000000000000..384fd26c5cdc7605608fd1b605dbcf96961ca326 --- /dev/null +++ b/ansi-tests/clear-output.lsp @@ -0,0 +1,50 @@ +;-*- 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) + + diff --git a/ansi-tests/finish-output.lsp b/ansi-tests/finish-output.lsp new file mode 100644 index 0000000000000000000000000000000000000000..9ae795d1f59ef649fbf25d8f0b331a45c97225d6 --- /dev/null +++ b/ansi-tests/finish-output.lsp @@ -0,0 +1,47 @@ +;-*- 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) diff --git a/ansi-tests/force-output.lsp b/ansi-tests/force-output.lsp new file mode 100644 index 0000000000000000000000000000000000000000..979a6d9506c9c544be9fba20dc3e8eedf4de5e9f --- /dev/null +++ b/ansi-tests/force-output.lsp @@ -0,0 +1,48 @@ +;-*- 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) + diff --git a/ansi-tests/load-streams.lsp b/ansi-tests/load-streams.lsp index bbb36ff68440a3abf84cf0a7d25b7b4019f46ad8..bf70864f8120cefcc93bc858456462f62a1ae93b 100644 --- a/ansi-tests/load-streams.lsp +++ b/ansi-tests/load-streams.lsp @@ -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") +