From: Juho S. <js...@us...> - 2006-03-15 04:03:37
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3257/tests Added Files: run-program.pure.lisp Log Message: 0.9.10.32: Make the streams created by RUN-PROGRAM bivalent. Patch by James Bielman on sbcl-devel, except: * Also bivalentify (bivalenticate? bivalentize?) the PTY stream * Add a test --- NEW FILE: run-program.pure.lisp --- ;;;; various run-program tests without side effects ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. ;;;; ;;;; While most of SBCL is derived from the CMU CL system, the test ;;;; files (like this one) were written from scratch after the fork ;;;; from CMU CL. ;;;; ;;;; This software is in the public domain and is provided with ;;;; absolutely no warranty. See the COPYING and CREDITS files for ;;;; more information. (cl:in-package :cl-user) (let* ((process (sb-ext:run-program "/bin/cat" '() :wait nil :output :stream :input :stream)) (out (process-input process)) (in (process-output process))) (unwind-protect (loop for i from 0 to 255 do (write-byte i out) (force-output out) (assert (= (read-byte in) i))) (process-close process))) |