-#-win32 (progn ;; kludge: It would be nicer to disable individual test cases,
- ;; but we are not using WITH-TEST yet here.
-
-(defparameter *tmpfile* "run-program-ed-test.tmp")
-
-(with-open-file (f *tmpfile*
- :direction :output
- :if-exists :supersede)
- (write-line "bar" f))
-
-(defparameter *ed*
- (run-program "/bin/ed" (list *tmpfile*) :wait nil :pty t))
-
-(defparameter *ed-pipe* (make-two-way-stream (process-pty *ed*) (process-pty *ed*)))
-(defparameter *ed-in* (make-synonym-stream '*ed-pipe*))
-(defparameter *ed-out* (make-synonym-stream '*ed-pipe*))
-
-(defun read-linish (stream)
- (with-output-to-string (s)
- (loop for c = (read-char stream)
- while (and c (not (eq #\newline c)))
- ;; Some eds like to send \r\n
- do (unless (eq #\return c)
- (write-char c s)))))
-
-(defun assert-ed (command response)
- (when command
- (write-line command *ed-in*)
- (force-output *ed-in*))
- (when response
- (let ((got (read-linish *ed-out*)))
- (unless (equal response got)
- (error "wanted '~A' from ed, got '~A'" response got))))
- *ed*)