(ns leiningen.test.deps

(:use [leiningen.core :only [read-project defproject apply-task]]

[leiningen.deps :only [deps do-deps]]

[clojure.test]

[clojure.java.io :only [file]]

[leiningen.util.file :only [delete-file-recursively]]

[leiningen.util.paths :only [get-os get-arch native-arch-path]]

[leiningen.test.helper :only [sample-project dev-deps-project

m2-dir with-no-log native-project]]))

(defn lib-populated? [project re]

(some #(re-find re (.getName %))

(file-seq (file (:library-path project)))))

(deftest ^{:online true} test-deps

(delete-file-recursively (:library-path sample-project) true)

(deps sample-project)

(let [jars (set (map #(.getName %)

(.listFiles (file (:library-path sample-project)))))]

(doseq [j ["jdom-1.0.jar" "tagsoup-1.2.jar" "rome-0.9.jar"]]

(is (jars j)))))

(deftest ^{:online true} test-dev-deps-only

(delete-file-recursively (:library-path dev-deps-project) true)

(deps dev-deps-project)

(let [jars (set (map #(.getName %)

(.listFiles (file (:root dev-deps-project)

"lib" "dev"))))]

(is (not (contains? jars "clojure-1.2.0.jar")))

(is (contains? jars "cheshire-2.0.2.jar"))))

(deftest ^{:online true} test-snapshots-releases

(try

(let [pr (assoc sample-project :omit-default-repositories true

:repositories {"clojars" {:url "http://clojars.org/repo/"

:snapshots false}})

ps (assoc sample-project :omit-default-repositories true

:repositories {"clojars" {:url "http://clojars.org/repo/"

:releases false}})

slamhound ['slamhound "1.1.0-SNAPSHOT"]

hooke ['robert/hooke "1.0.1"]

deps (fn [project]

(delete-file-recursively (apply m2-dir slamhound) :quiet)

(delete-file-recursively (apply m2-dir hooke) :quiet)

(leiningen.deps/deps project))]

(deps (assoc pr :dependencies [hooke]))

(is (lib-populated? ps #"hooke"))

(deps (assoc ps :dependencies [slamhound]))

(is (lib-populated? ps #"slamhound"))

(let [snaps-repo-rel-dep (assoc ps :dependencies [hooke])]

(is (thrown? Exception (with-no-log (deps snaps-repo-rel-dep)))))

(let [rel-repo-snaps-dep (assoc pr :dependencies [slamhound])]

(is (thrown? Exception (with-no-log (deps rel-repo-snaps-dep))))))

(finally

(delete-file-recursively (:library-path sample-project) :silently))))

(def native-lib-files-map

{:linux {:x86 #{"libjri.so" "libjinput-linux.so" "liblwjgl.so" "libopenal.so"

"librxtxSerial.so" "libjtokyocabinet.so"

"libjtokyocabinet.so.1" "libjtokyocabinet.so.1.1.0"

"libtokyocabinet.a" "libtokyocabinet.so"

"libtokyocabinet.so.9" "libtokyocabinet.so.9.10.0"

"libtokyocabinet.so.9.8.0"}

:x86_64 #{"libjri.so" "libjinput-linux64.so" "liblwjgl64.so"

"libopenal64.so" "librxtxSerial.so" "libjtokyocabinet.so"

"libjtokyocabinet.so.1" "libjtokyocabinet.so.1.1.0"

"libtokyocabinet.a" "libtokyocabinet.so"

"libtokyocabinet.so.9" "libtokyocabinet.so.9.10.0"

"libtokyocabinet.so.9.8.0"}}

:macosx {:x86 #{"libjri.jnilib" "libjinput-osx.jnilib" "liblwjgl.jnilib"

"openal.dylib" "librxtxSerial.jnilib"

"libjtokyocabinet.1.1.0.dylib" "libjtokyocabinet.1.dylib"

"libjtokyocabinet.dylib" "libjtokyocabinet.jnilib"

"libtokyocabinet.9.10.0.dylib"

"libtokyocabinet.9.8.0.dylib" "libtokyocabinet.9.dylib"

"libtokyocabinet.a" "libtokyocabinet.dylib"}

:x86_64 #{"libjri.jnilib" "libjinput-osx.jnilib" "liblwjgl.jnilib"

"openal.dylib" "librxtxSerial.jnilib"

"libjtokyocabinet.1.1.0.dylib" "libjtokyocabinet.1.dylib"

"libjtokyocabinet.dylib" "libjtokyocabinet.jnilib"

"libtokyocabinet.9.10.0.dylib"

"libtokyocabinet.9.8.0.dylib" "libtokyocabinet.9.dylib"

"libtokyocabinet.a" "libtokyocabinet.dylib"}}

:windows {:x86 #{"jri.dll" "rJava.dll" "jinput-dx8.dll" "jinput-raw.dll"

"lwjgl.dll" "OpenAL32.dll" "rxtxSerial.dll"}

:x86_64 #{"jri.dll rJava.dll" "jinput-dx8_64.dll"

"jinput-raw_64.dll" "lwjgl64.dll" "OpenAL64.dll"

"rxtxSerial.dll"}}

:solaris {:x86 #{"liblwjgl.so" "libopenal.so"}

:x86_64 #{"liblwjgl64.so" "libopenal.so"}}})

(deftest ^{:online true} test-native-deps

(delete-file-recursively (:library-path native-project) true)

(delete-file-recursively (:native-path native-project) true)

(deps native-project)

(is (= (conj (get-in native-lib-files-map [(get-os) (get-arch)]) ".gitkeep")

(set (for [f (rest (file-seq (native-arch-path native-project)))]

(.getName f))))))

(deftest ^{:online true} test-checksum-deps

(delete-file-recursively (:library-path sample-project) true)

(deps (assoc sample-project :checksum-deps true))

(let [deps-ran (atom false)]

(binding [do-deps (fn [& _] (reset! deps-ran true))]

(deps (assoc sample-project :checksum-deps true))

(is (not @deps-ran)))))

(deftest ^{:online true} test-explicit-checksum-deps

(delete-file-recursively (:library-path sample-project) true)

(deps (assoc sample-project :checksum-deps true))

(let [deps-ran (atom false)]

(binding [do-deps (fn [& _] (reset! deps-ran true))]

(apply-task "deps" (assoc sample-project :checksum-deps true) [] #())

(is @deps-ran))))