From d2cb6b102b16ff074c0e6a3dd7f8f280558d5404 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sat, 6 Jun 2009 00:08:30 +0100 Subject: [PATCH] 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. --- THANKS | 1 + test-suite/tests/popen.test | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/THANKS b/THANKS index 1d94a5a63..5b590fd91 100644 --- a/THANKS +++ b/THANKS @@ -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)))