2009-11-05 06:10:11 +00:00
|
|
|
(ns test-deps
|
2009-11-14 22:48:13 +00:00
|
|
|
(:use [leiningen.core :only [read-project defproject]]
|
2009-11-09 06:39:07 +00:00
|
|
|
[leiningen.deps :only [deps]] :reload-all)
|
2009-11-05 06:10:11 +00:00
|
|
|
(:use [clojure.test]
|
2010-09-09 04:05:03 +00:00
|
|
|
[clojure.java.io :only [file]]
|
|
|
|
[leiningen.util.file :only [delete-file-recursively]]))
|
2009-11-05 06:10:11 +00:00
|
|
|
|
2010-08-24 03:03:52 +00:00
|
|
|
(def test-project (read-project "test_projects/sample/project.clj"))
|
2009-11-05 06:10:11 +00:00
|
|
|
|
|
|
|
(deftest test-deps
|
2009-11-14 22:48:13 +00:00
|
|
|
(delete-file-recursively (file (:root test-project) "lib") true)
|
2009-11-09 06:39:07 +00:00
|
|
|
(deps test-project)
|
2009-11-14 23:31:42 +00:00
|
|
|
(let [jars (set (map #(.getName %)
|
|
|
|
(.listFiles (file (:root test-project) "lib"))))]
|
2010-09-09 04:05:03 +00:00
|
|
|
(doseq [j ["jdom-1.0.jar" "tagsoup-1.2.jar" "rome-0.9.jar"]]
|
|
|
|
(is (jars j)))))
|
2010-10-31 17:41:28 +00:00
|
|
|
|
|
|
|
(def dev-deps-only-project
|
|
|
|
(read-project "test_projects/dev-deps-only/project.clj"))
|
|
|
|
|
|
|
|
(deftest test-dev-deps-only
|
|
|
|
(delete-file-recursively (file (:root dev-deps-only-project) "lib") true)
|
|
|
|
(deps dev-deps-only-project)
|
|
|
|
(let [jars (set (map #(.getName %)
|
|
|
|
(.listFiles (file (:root dev-deps-only-project) "lib" "dev"))))]
|
|
|
|
(doseq [j ["clojure-1.2.0.jar"]]
|
|
|
|
(is (jars j)))))
|
|
|
|
|