summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2012-10-01 19:02:50 +0100
committerPeter Bex <peter@more-magic.net>2012-10-01 19:02:50 +0100
commit64a6f0f19f488ef87071ef15fa6ddd67c78ae272 (patch)
tree872c2a4055b59667fa5a9b377ce10840037306a9 /tests/run.scm
parent32e9bffa67258b7331dfcf85ffea8fd490bb2333 (diff)
downloadscsh-process-64a6f0f19f488ef87071ef15fa6ddd67c78ae272.tar.gz
Implement run/file*, which is really weird
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm6
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"))