X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-program.impure.lisp;fp=tests%2Frun-program.impure.lisp;h=46238b9c5ceae0ff642589be8acbb037b2a3ca14;hb=847ade9bf52d7c8538b3e7b9588106d9d62ea8de;hp=4bba18ecc0415c26319ec91002efd099555e8c49;hpb=7448b6225fa43ea6a61391990b173c09505ba45d;p=sbcl.git

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index 4bba18e..46238b9 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -84,8 +84,10 @@
 (defun read-linish (stream)
   (with-output-to-string (s)
     (loop for c = (read-char stream)
-          while (and c (not (eq #\newline c)) (not (eq #\return c)))
-          do (write-char c s))))
+          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
@@ -100,7 +102,7 @@
 (unwind-protect
      (with-test (:name :run-program-ed)
        (assert-ed nil "4")
-       (assert-ed ".s/bar/baz/g" #-sunos "" #+sunos nil)
+       (assert-ed ".s/bar/baz/g" nil)
        (assert-ed "w" "4")
        (assert-ed "q" nil)
        (process-wait *ed*)