io.directories: test moving a file to overwrite an existing one

diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor
index de41b112b0147ed6a1d4c7a41fa1a343359e4ce4..edfcba2037ccc2158b7b5d05e17b96e4654c64fb 100644 (file)
--- a/basis/io/directories/directories-tests.factor
+++ b/basis/io/directories/directories-tests.factor
@@ -56,6 +56,14 @@ splitting.monotonic strings system tools.test ;
         "file6" link-info drop
     ] unit-test
 
+    { "file7 contents" } [
+        "file8" touch-file
+        "file7 contents" "file7" utf8 set-file-contents
+        "file7" "file8" move-file
+        "file8" utf8 file-contents
+        "file8" delete-file
+    ] unit-test
+
     { } [
         { "Hello world." }
         "test-foo.txt" ascii set-file-lines