1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00

Fix popen.test on NetBSD and Ubuntu Jaunty, where sh is not Bash

Thanks to Greg Troxel for reporting, and Barry Fishman for the
explanation and fix.

* test-suite/tests/popen.test ("open-input-pipe"): Use shell function
  `read' with an explicit argument, as apparently not all shells
  support read with no argument.
This commit is contained in:
Neil Jerram 2009-06-06 00:08:30 +01:00
parent 66f3b6c1b0
commit d2cb6b102b
2 changed files with 2 additions and 1 deletions

1
THANKS
View file

@ -37,6 +37,7 @@ For fixes or providing information which led to a fix:
John W Eaton John W Eaton
Clinton Ebadi Clinton Ebadi
David Fang David Fang
Barry Fishman
Charles Gagnon Charles Gagnon
Peter Gavin Peter Gavin
Eric Gillespie, Jr Eric Gillespie, Jr

View file

@ -77,7 +77,7 @@
(let* ((p2c (pipe)) (let* ((p2c (pipe))
(port (with-input-from-port (car p2c) (port (with-input-from-port (car p2c)
(lambda () (lambda ()
(open-input-pipe "read && echo $REPLY"))))) (open-input-pipe "read line && echo $line")))))
(display "hello\n" (cdr p2c)) (display "hello\n" (cdr p2c))
(force-output (cdr p2c)) (force-output (cdr p2c))
(let ((result (eq? (read port) 'hello))) (let ((result (eq? (read port) 'hello)))