From 62d78113edffe4d3a521d70461188b41c54a151d Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 28 Jan 2004 12:37:27 +0000 Subject: [PATCH] Added tests for clear-input --- ansi-tests/clear-input.lsp | 50 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 ansi-tests/clear-input.lsp diff --git a/ansi-tests/clear-input.lsp b/ansi-tests/clear-input.lsp new file mode 100644 index 00000000..f329c888 --- /dev/null +++ b/ansi-tests/clear-input.lsp @@ -0,0 +1,50 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Wed Jan 28 06:12:39 2004 +;;;; Contains: Tests of CLEAR-INPUT + +(in-package :cl-test) + +;;; These tests are limited, since whether an input stream can be +;;; cleared is not well specified. + +(deftest clear-input.1 + (loop for s in (list *debug-io* *query-io* + *standard-input* *terminal-io*) + always (eq (clear-input s) nil)) + t) + +(deftest clear-input.2 + (clear-input) + nil) + +(deftest clear-input.3 + (clear-input nil) + nil) + +(deftest clear-input.4 + (clear-input t) + nil) + +;;; Error cases + +(deftest clear-input.error.1 + (signals-error (clear-input t nil) program-error) + t) + +(deftest clear-input.error.2 + (signals-error (clear-input nil nil) program-error) + t) + +(deftest clear-input.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-input ',x) type-error))) + '(t))) + collect x) + nil) + + -- GitLab