summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2018-04-21 10:40:07 +0200
committerPeter Bex <peter@more-magic.net>2018-04-21 10:40:07 +0200
commite0a136839ff1f359f01320e2c3e32bae0164b785 (patch)
treeda976ea1a338a089357670956e1317e26e98bd40 /tests/run.scm
parent512af2ee5a33c3001f74a60f9c61dd3a08137276 (diff)
downloadscsh-process-e0a136839ff1f359f01320e2c3e32bae0164b785.tar.gz
Make ">" redirect truncate existing files
Thanks to Joerg Wittenberger
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/run.scm b/tests/run.scm
index 96d49eb..9bf2c75 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -143,6 +143,16 @@
(test "Subprocess writing to a file"
"hi, there\n"
(begin (run (echo "hi, there") (> ,the-outfile))
+ (read-all the-outfile)))
+
+ (test "Appending to the file"
+ "hi, there\nhi, again\n"
+ (begin (run (echo "hi, again") (>> ,the-outfile))
+ (read-all the-outfile)))
+
+ (test "Writing to the file truncates"
+ "hi, truncated\n"
+ (begin (run (echo "hi, truncated") (> ,the-outfile))
(read-all the-outfile))))
(delete-file* "outfile")