diff options
author | John Benediktsson <mrjbq7@gmail.com> | 2024-04-15 13:06:59 -0700 |
---|---|---|
committer | John Benediktsson <mrjbq7@gmail.com> | 2024-04-15 13:07:28 -0700 |
commit | db8e6fc6371b83f41b156c0ee6f4255d0d5d6a31 (patch) | |
tree | 6fe534f8bd16e91412c5d1ce49ad0ff11fbad057 | |
parent | c79ee58fc6acf5e30908cd8bd4f492924fc4d1a7 (diff) |
io.directories: test moving a file to overwrite an existing one
-rw-r--r-- | basis/io/directories/directories-tests.factor | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor index de41b112b0..edfcba2037 100644 --- 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 |