Implement appending to files

1 files changed, 11 insertions, 1 deletions

diff --git a/tests/run.scm b/tests/run.scm
index 4e3bb8a..df73ac3 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -38,7 +38,17 @@
     (let ((tmpfile (run/file (echo "blah"))))
       (test "Simple run/file"
             "blah\n"
-            (with-input-from-file tmpfile read-all))))
+            (with-input-from-file tmpfile read-all))
+
+      (test "Appending to a file"
+            '("blah" "foo")
+            (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")))
+      (delete-file* tmpfile)))
 
   (test-group "Subprocesses"
     (let ((outfile "outfile"))