diff options
Diffstat (limited to 'test-suite/tests/popen.test')
| -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))) |