yogsototh/marginalia
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove dependency on contrib.java-utils

Browse source 
When I tried to do a `lein2 test` it broke. Uh oh. Time to go debug the tests… `delete-file-recursively` wasn't even in 1.2's `java-utils`, it was in `contrib.io`. Weird.
This commit is contained in:
Josh Tilles 2012-04-27 11:58:30 -04:00 committed by fogus
parent f849fd342c
commit a337c36ae9
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test/marginalia/test/helpers.clj
View file

@ -1,7 +1,19 @@
(ns marginalia.test.helpers
(:use clojure.test)
(:use [clojure.java.io :only (file)])
(:use [clojure.contrib.java-utils :only (delete-file-recursively)]))
(:use [clojure.java.io :only (file delete-file)]))
;; copied from http://clojuredocs.org/clojure_contrib/clojure.contrib.io/delete-file-recursively
;; N.B. that Raynes's filesystem library could possibly replace this,
;; but that's a separate task.
(defn delete-file-recursively
"Delete file f. If it's a directory, recursively delete all its contents. Raise an exception if any deletion fails unless silently is true."
[f & [silently]]
(let [f (file f)]
(when (.isDirectory f)
(doseq [child (.listFiles f)]
(delete-file-recursively child silently)))
(delete-file f silently)))
(defn files-in [dir]
(seq (.listFiles (file dir))))