diff options
| -rw-r--r-- | tests/run.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm index ab023eb..2ad287f 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -68,7 +68,9 @@ (let ((echo-command 'echo)) (test "Subprocess piped to another process, writing to a file" "1235\n" - (begin (run (pipe (,echo-command "1234" + 1) ("bc")) (> outfile)) + (begin (run (pipe (,echo-command "1234" + 1) + ("sh" -c "read foo; echo $(($foo))")) + (> outfile)) (read-all "outfile")))) (delete-file* "outfile") |