mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 19:20:23 +02:00
Code Activity

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/popen.test
View file

@ -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)))