summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2012-10-02 15:40:44 +0100
committerPeter Bex <peter@more-magic.net>2012-10-02 15:40:44 +0100
commit5aab937646bebb4998491def71f0653480a286f4 (patch)
tree4a422192fd009f91c53bb6361670fdea8f445422 /tests/run.scm
parentaf93407cb40916a85d444dc62174d3b421b8842c (diff)
downloadscsh-process-5aab937646bebb4998491def71f0653480a286f4.tar.gz
Use implicit quasiquotation inside object-redirection rule too
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm7
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"