summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/run.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/run.scm b/tests/run.scm
index 2ad287f..c4deb88 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -1,7 +1,7 @@
(include "../scsh-process.scm")
(import scsh-process)
-(use test posix)
+(use test posix srfi-13)
(test-begin "scsh-process")
@@ -53,8 +53,9 @@
(let ((message "testing, 1 2 3"))
(test "Redirecting from object"
- `("blah" "foo" ,message)
- (run/strings (cat ,tmpfile -) (<< ,message))))
+ `("blah" "foo" ,(string-delete #\t message))
+ (run/strings (pipe (epf (tr -d t) (<< ,message))
+ (cat ,tmpfile -)))))
(delete-file* tmpfile)))
(test-group "Subprocesses"