diff options
Diffstat (limited to 'test/clojure/test_clojure/java/io.clj')
| -rw-r--r-- | test/clojure/test_clojure/java/io.clj | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/clojure/test_clojure/java/io.clj b/test/clojure/test_clojure/java/io.clj index 1841ada0..d193942d 100644 --- a/test/clojure/test_clojure/java/io.clj +++ b/test/clojure/test_clojure/java/io.clj @@ -178,8 +178,11 @@ (deftest test-make-parents (let [tmp (System/getProperty "java.io.tmpdir")] - (delete-file-recursively (file tmp "test-make-parents") :silently) + (delete-file (file tmp "test-make-parents" "child" "grandchild") :silently) + (delete-file (file tmp "test-make-parents" "child") :silently) + (delete-file (file tmp "test-make-parents") :silently) (make-parents tmp "test-make-parents" "child" "grandchild") (is (.isDirectory (file tmp "test-make-parents" "child"))) (is (not (.isDirectory (file tmp "test-make-parents" "child" "grandchild")))) - (delete-file-recursively (file tmp "test-make-parents")))) + (delete-file (file tmp "test-make-parents" "child")) + (delete-file (file tmp "test-make-parents")))) |