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