diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2009-06-06 00:08:30 +0100 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2009-06-06 00:15:32 +0100 |
commit | 12798872ff39e27dbcf90675c3d3554ae27df750 (patch) | |
tree | 17797bd96782c31bef3028f6dabcbbc764d24e73 | |
parent | a23c940b717413139d294d4f5c443b8d165f42a9 (diff) | |
download | guile-12798872ff39e27dbcf90675c3d3554ae27df750.tar.gz |
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.
-rw-r--r-- | THANKS | 1 | ||||
-rw-r--r-- | test-suite/tests/popen.test | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -37,6 +37,7 @@ For fixes or providing information which led to a fix: John W Eaton Clinton Ebadi David Fang + Barry Fishman Charles Gagnon Peter Gavin Eric Gillespie, Jr diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index 08bfa7cb4..9cc68f21c 100644 --- a/test-suite/tests/popen.test +++ b/test-suite/tests/popen.test @@ -77,7 +77,7 @@ (let* ((p2c (pipe)) (port (with-input-from-port (car p2c) (lambda () - (open-input-pipe "read && echo $REPLY"))))) + (open-input-pipe "read line && echo $line"))))) (display "hello\n" (cdr p2c)) (force-output (cdr p2c)) (let ((result (eq? (read port) 'hello))) |