io.files.unique: test the copy-path behavior

mrjbq7 · May 28, 2024 · 3c61ca2 · 3c61ca2
1 parent 3bd5787
commit 3c61ca2
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/basis/io/files/unique/unique-tests.factor b/basis/io/files/unique/unique-tests.factor
@@ -67,11 +67,11 @@ tools.test unicode ;
     ] with-temp-directory
 ] unit-test
 
-{ "world" } [
+{ "" "world" } [
     [
         "hello" "foo" utf8 set-file-contents
         "foo" [
-            "world" swap utf8 set-file-contents
+            utf8 [ "world" ] change-file-contents
         ] safe-overwrite-file
         "foo" utf8 file-contents
     ] with-temp-directory
@@ -89,11 +89,11 @@ tools.test unicode ;
     ] with-temp-directory
 ] unit-test
 
-{ "HELLO" } [
+{ "hello" "HELLO" } [
     [
         "hello" "foo" utf8 set-file-contents
         "foo" [
-            utf8 [ >upper ] change-file-contents
+            utf8 [ dup >upper ] change-file-contents
         ] safe-replace-file
         "foo" utf8 file-contents
     ] with-temp-directory