28 lines
798 B
Clojure
28 lines
798 B
Clojure
(ns test-test
|
|
(:refer-clojure :exclude [test])
|
|
(:use [leiningen.test]
|
|
[leiningen.core :only [read-project]] :reload)
|
|
(:use [clojure.test]))
|
|
|
|
(use-fixtures :each
|
|
(fn [f]
|
|
(.delete (java.io.File. "/tmp/lein-test-ran"))
|
|
(f)))
|
|
|
|
(def project (binding [*ns* (find-ns 'leiningen.core)]
|
|
(read-project "test_projects/sample_no_aot/project.clj")))
|
|
|
|
(defn ran []
|
|
(map read-string (.split (slurp "/tmp/lein-test-ran") "\n")))
|
|
|
|
(deftest test-no-selectors
|
|
(test project)
|
|
(is (= [:regular :integration :int2 :not-custom] (ran))))
|
|
|
|
(deftest test-basic-selector
|
|
(test project ":integration")
|
|
(is (= [:integration] (ran))))
|
|
|
|
(deftest test-two-selectors
|
|
(test project ":integration" ":int2")
|
|
(is (= [:integration :int2] (ran))))
|