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:
parent
66f3b6c1b0
commit
d2cb6b102b
2 changed files with 2 additions and 1 deletions
1
THANKS
1
THANKS
|
@ -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
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue