diff options
| author | Phil Hagelberg <technomancy@gmail.com> | 2009-10-08 21:29:25 -0700 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-10-28 21:50:46 -0400 |
| commit | 8eef617aac7b077421d4aa9c84a2df189af6ee17 (patch) | |
| tree | 469cf322f331efe7faf45f8535361845fe455148 /src/clojure/contrib/test_contrib | |
| parent | b9c7820e64d4e5b86c837b25800cf61094ad2517 (diff) | |
java-utils: Add delete-file and delete-file-recursively functions
Also added test for delete-file. Refs #33
Signed-off-by: Chouser <chouser@n01se.net>
Diffstat (limited to 'src/clojure/contrib/test_contrib')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_java_utils.clj | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/clojure/contrib/test_contrib/test_java_utils.clj b/src/clojure/contrib/test_contrib/test_java_utils.clj index abf1b9a6..8e0f67c4 100644 --- a/src/clojure/contrib/test_contrib/test_java_utils.clj +++ b/src/clojure/contrib/test_contrib/test_java_utils.clj @@ -88,7 +88,7 @@ (is (= (inc propcount) (count (System/getProperties))))) (is (= propcount (count (System/getProperties)))))) ) - + (deftest test-as-properties (let [expected (doto (Properties.) (.setProperty "a" "b") @@ -113,4 +113,11 @@ (read-properties f))))) - +(deftest test-delete-file + (let [file (File/createTempFile "test" "deletion") + not-file (File. (str (java.util.UUID/randomUUID)))] + (delete-file (.getAbsolutePath file)) + (is (not (.exists file))) + (is (thrown? ArithmeticException (/ 1 0))) + (is (thrown? java.io.IOException (delete-file not-file))) + (is (delete-file not-file :silently)))) |