X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.pure.lisp;h=70fc40db65cae6ff7296682eca403edc7c70ded9;hb=fe240ce504041bfb181a81cb11b7b4bba112f65f;hp=2593683608a15f50a13aad0c0b3184d0c0111969;hpb=71817ae02c1932e911a7e7c4e6bfc880bdbc8490;p=sbcl.git

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index 2593683..70fc40d 100644
--- a/tests/stream.pure.lisp
+++ b/tests/stream.pure.lisp
@@ -80,3 +80,13 @@
   (with-input-from-string (q "foo")
     (let* ((r (make-concatenated-stream p q)))
       (peek-char nil r))))
+
+;; 0.7.14 and previous SBCLs don't have a working INTERACTIVE-STREAM-P
+;; because it called UNIX-ISATTY, which wasn't defined.
+(with-input-from-string (s "a non-interactive stream")
+  (assert (not (interactive-stream-p s))))
+;;; KLUDGE: Unfortunately it's hard to find a reliably interactive
+;;; stream to test, since it's reasonable for these tests to be run
+;;; from a script, conceivably even as something like a cron job.
+;;; Ideas?
+#+nil (assert (eq (interactive-stream-p *terminal-io*) t))