diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-01 18:33:26 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-01 18:33:26 +0100 |
| commit | 683c1e32c96c657b35468c947a4445709ff08576 (patch) | |
| tree | df762233904c0c03389f8c57246ae083e5874d78 /tests | |
| parent | ae6f4ea76524c69aa701999ab13278193695432a (diff) | |
| download | scsh-process-683c1e32c96c657b35468c947a4445709ff08576.tar.gz | |
Mistake: the fork should automatically exit, the user shouldn't need to do this
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/run.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/run.scm b/tests/run.scm index 23220e1..207d705 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -9,11 +9,11 @@ (begin (fork/pipe (lambda () (with-output-to-port (open-output-file* 1) - (lambda () (display "Hello, world.\n") (exit 0))))) + (lambda () (display "Hello, world.\n"))))) (read-line (open-input-file* 0)))) (test "run/string* returns a string output in a subprocess" "This is a test" - (run/string* (lambda () (display "This is a test") (exit 0))))) + (run/string* (lambda () (display "This is a test"))))) (test-group "Macro (EPF) interface" (delete-file* "outfile") ; Leftovers |