io.directories: use factor for touch-file.

diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor
index 2bdc878be095a0305cf70493ca57134799d4a509..caaf7ffb56413d74677cd7383b86778738364bca 100644 (file)
--- a/basis/io/directories/directories-tests.factor
+++ b/basis/io/directories/directories-tests.factor
@@ -160,9 +160,13 @@ system tools.test ;
     { } [ "copy-tree-test" delete-tree ] unit-test
 
     ! Issue #890
-    { } [
+    { f t } [
         "foo" [ make-directories ] keep
-        [ vm-path "-help" 2array try-output-process ] with-directory
+        [
+            "bar" exists?
+            vm-path "-e=USE: io.directories \"bar\" touch-file" 2array try-output-process
+            "bar" exists?
+        ] with-directory
     ] unit-test
 
     { t } [