diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-02 15:40:44 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-02 15:40:44 +0100 |
| commit | 5aab937646bebb4998491def71f0653480a286f4 (patch) | |
| tree | 4a422192fd009f91c53bb6361670fdea8f445422 /tests | |
| parent | af93407cb40916a85d444dc62174d3b421b8842c (diff) | |
| download | scsh-process-5aab937646bebb4998491def71f0653480a286f4.tar.gz | |
Use implicit quasiquotation inside object-redirection rule too
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/run.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/run.scm b/tests/run.scm index 3526ec0..b72ca75 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -45,9 +45,10 @@ (begin (run (echo foo) (>> ,tmpfile)) (read-lines tmpfile))) - (test "Redirecting from object" - '("blah" "foo" "testing, 1 2 3") - (run/strings (cat ,tmpfile -) (<< "testing, 1 2 3"))) + (let ((message "testing, 1 2 3")) + (test "Redirecting from object" + `("blah" "foo" ,message) + (run/strings (cat ,tmpfile -) (<< ,message)))) (delete-file* tmpfile))) (test-group "Subprocesses" |