From fec6f921f7f8ebf4af638ca06f3e3c0ec8a16826 Mon Sep 17 00:00:00 2001 From: Phil Hagelberg Date: Thu, 8 Oct 2009 21:37:17 -0700 Subject: [PATCH] Added a test for delete-file-recursively. --- .../contrib/test_contrib/test_java_utils.clj | 13 ++++++++++++- 1 files changed, 12 insertions(+), 1 deletions(-) diff --git a/src/clojure/contrib/test_contrib/test_java_utils.clj b/src/clojure/contrib/test_contrib/test_java_utils.clj index ad011d1..e447e4b 100644 --- a/src/clojure/contrib/test_contrib/test_java_utils.clj +++ b/src/clojure/contrib/test_contrib/test_java_utils.clj @@ -120,4 +120,15 @@ (is (not (.exists file))) (is (thrown? ArithmeticException (/ 1 0))) (is (thrown? java.io.IOException (delete-file not-file))) - (is (not (delete-file not-file :silently))))) + (is (delete-file not-file :silently)))) + +(deftest test-delete-file-recursively + (let [dir (file "/tmp/contrib-test") + _ (.mkdirs dir) + f1 (File/createTempFile "test" "1" dir) + dir2 (file "/tmp/contrib-test/nested") + _ (.mkdirs dir2) + f2 (File/createTempFile "test" "2" dir2)] + (delete-file-recursively dir) + (doseq [f [dir f1 dir2 f2]] + (is (not (.exists f)))))) \ No newline at end of file -- 1.6.0.4