diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/run.scm | 10 |
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") |