leiningen/test/test_deps.clj

(ns test-deps
  (:use [leiningen.core :only [read-project defproject]]
        [leiningen.deps :only [deps]] :reload-all)
  (:use [clojure.test]
        [clojure.java.io :only [file]]
        [leiningen.util.file :only [delete-file-recursively]]))

(def test-project (read-project "test_projects/sample/project.clj"))

(deftest test-deps
  (delete-file-recursively (file (:root test-project) "lib") true)
  (deps test-project)
  (let [jars (set (map #(.getName %)
                       (.listFiles (file (:root test-project) "lib"))))]
    (doseq [j ["jdom-1.0.jar" "tagsoup-1.2.jar" "rome-0.9.jar"]]
      (is (jars j)))))
Allow tests to be filtered on predicates. 2009-11-05 06:10:11 +00:00			`(ns test-deps`
Move test project to sample/ dir. 2009-11-14 22:48:13 +00:00			`(:use [leiningen.core :only [read-project defproject]]`
Fix dependencies test. 2009-11-09 06:39:07 +00:00			`[leiningen.deps :only [deps]] :reload-all)`
Allow tests to be filtered on predicates. 2009-11-05 06:10:11 +00:00			`(:use [clojure.test]`
Separate private/internal functions from public API. 2010-09-09 04:05:03 +00:00			`[clojure.java.io :only [file]]`
			`[leiningen.util.file :only [delete-file-recursively]]))`
Allow tests to be filtered on predicates. 2009-11-05 06:10:11 +00:00
Added a build-failing project for flexing compilation-failing aware 'jar'; created test_projects and moved sample there too 2010-08-24 03:03:52 +00:00			`(def test-project (read-project "test_projects/sample/project.clj"))`
Allow tests to be filtered on predicates. 2009-11-05 06:10:11 +00:00
			`(deftest test-deps`
Move test project to sample/ dir. 2009-11-14 22:48:13 +00:00			`(delete-file-recursively (file (:root test-project) "lib") true)`
Fix dependencies test. 2009-11-09 06:39:07 +00:00			`(deps test-project)`
Allow custom :repositories to be specified in project.clj. Add build.clojure.org as a default repo. 2009-11-14 23:31:42 +00:00			`(let [jars (set (map #(.getName %)`
			`(.listFiles (file (:root test-project) "lib"))))]`
Separate private/internal functions from public API. 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)))))`