From: William Harold Newman <wnewman@us...> - 2003-04-08 23:57:33
Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv10594
merged antonio martinez' INTERACTIVE-STREAM-P and
*STANDARD-INPUT* patches (sbcl-devel ca. 2003-04-07)
RCS file: /cvsroot/sbcl/sbcl/tests/stream.pure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- stream.pure.lisp 19 Feb 2003 19:54:37 -0000 1.5
+++ stream.pure.lisp 8 Apr 2003 23:57:30 -0000 1.6
@@ -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.
+#+nil (assert (eq (interactive-stream-p *terminal-io*) t))
Get latest updates about Open Source Projects, Conferences and News.