diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-01 19:02:50 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-01 19:02:50 +0100 |
| commit | 64a6f0f19f488ef87071ef15fa6ddd67c78ae272 (patch) | |
| tree | 872c2a4055b59667fa5a9b377ce10840037306a9 /tests/run.scm | |
| parent | 32e9bffa67258b7331dfcf85ffea8fd490bb2333 (diff) | |
| download | scsh-process-64a6f0f19f488ef87071ef15fa6ddd67c78ae272.tar.gz | |
Implement run/file*, which is really weird
Diffstat (limited to 'tests/run.scm')
| -rw-r--r-- | tests/run.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm index c0cb01f..f537ad8 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -33,7 +33,11 @@ (test "Simple run/port" '(a b c) - (read (run/port (echo "(a b c)"))))) + (read (run/port (echo "(a b c)")))) + + (test "Simple run/file" + "blah\n" + (with-input-from-file (run/file (echo "blah")) read-all))) (test-group "Subprocesses" (let ((outfile "outfile")) |