Make ">" redirect truncate existing files

Thanks to Joerg Wittenberger

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")