io.directories: fix delete-file on windows, add unit test

diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor
index b703421b45b471d854db36a4283f436b10ca09ca..19d6d8e5481cb75163ff5bef8d9a00ab3ba0895f 100644 (file)
--- a/basis/io/directories/directories-tests.factor
+++ b/basis/io/directories/directories-tests.factor
@@ -187,3 +187,6 @@ IN: io.directories.tests
 [ ] [ "copy-destination" temp-file delete-tree ] unit-test
 
 [ ] [ "copy-tree-test" temp-file delete-tree ] unit-test
+
+[ ] [ "resource:deleteme" touch-file ] unit-test
+[ ] [ "resource:deleteme" delete-file ] unit-test
\ No newline at end of file

diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor
index b02f8731f5ea8ea5f6c93ed042135e572f3aabde..68c7a5bd079d945ab7836a1ed26193e88e8e1e40 100644 (file)
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -32,7 +32,7 @@ ERROR: file-delete-failed path error ;
     ] [ drop ] if ;
 
 M: windows delete-file ( path -- )
-    normalize-path
+    absolute-path
     [ (delete-file) ]
     [ \ file-delete-failed boa rethrow ] recover ;