diff --git a/ansi-tests/listen.lsp b/ansi-tests/listen.lsp new file mode 100644 index 0000000000000000000000000000000000000000..fff24e435f4bb2a65d6adfe600915a71df01bf95 --- /dev/null +++ b/ansi-tests/listen.lsp @@ -0,0 +1,60 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Tue Jan 27 21:16:39 2004 +;;;; Contains: Tests of LISTEN + +(in-package :cl-test) + +(deftest listen.1 + (with-input-from-string (s "") (listen s)) + nil) + +(deftest listen.2 + (with-input-from-string (s "x") (notnot-mv (listen s))) + t) + +(deftest listen.3 + (with-input-from-string (*standard-input* "") (listen)) + nil) + +(deftest listen.4 + (with-input-from-string (*standard-input* "A") (notnot-mv (listen))) + t) + +(deftest listen.5 + (progn (clear-input) (listen)) + nil) + +(deftest listen.6 + (with-input-from-string + (s "x") + (values + (read-char s) + (listen s) + (unread-char #\x s) + (notnot (listen s)) + (read-char s))) + #\x nil nil t #\x) + +(deftest listen.7 + (with-open-file + (s "listen.lsp") + (values + (notnot (listen s)) + (handler-case + (locally (declare (optimize safety)) + (loop (read-char s))) + (end-of-file () (listen s))))) + t nil) + +;;; Error tests + +(deftest listen.error.1 + (signals-error (listen *standard-input* nil) program-error) + t) + + + + + + diff --git a/ansi-tests/load-streams.lsp b/ansi-tests/load-streams.lsp index d2d7237b0d498070648825883d72c7be64342b43..bbb36ff68440a3abf84cf0a7d25b7b4019f46ad8 100644 --- a/ansi-tests/load-streams.lsp +++ b/ansi-tests/load-streams.lsp @@ -29,3 +29,5 @@ (load "file-string-length.lsp") (load "open.lsp") (load "stream-external-format.lsp") +(load "with-open-file.lsp") +(load "listen.lsp") \ No newline at end of file