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 /test-suite | |
| 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.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/popen.test | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |