diff --git a/project.clj b/project.clj index d71ff929..a6e2c177 100644 --- a/project.clj +++ b/project.clj @@ -32,7 +32,8 @@ clj-http.core ordered.map]}} :test-selectors {:default (complement :disabled) - :offline (complement :online)} + :offline (comp (partial not-any? identity) + (juxt :online :disabled))} :source-paths ["leiningen-core/src" "src"] ;; work around Clojure bug http://dev.clojure.org/jira/browse/CLJ-1034 :uberjar-exclusions [#"^data_readers.clj$"] diff --git a/test/leiningen/test/compile.clj b/test/leiningen/test/compile.clj index ee4dd360..508bc165 100644 --- a/test/leiningen/test/compile.clj +++ b/test/leiningen/test/compile.clj @@ -18,13 +18,13 @@ (file "test_projects" "sample_failing" "target") true) (f))) -(deftest test-compile +(deftest ^:online test-compile (compile sample-project "nom.nom.nom") (is (.exists (file "test_projects" "sample" "target" "classes" "nom" "nom" "nom.class"))) (is (thrown? Exception (compile sample-failing-project)))) -(deftest test-compile-all +(deftest ^:online test-compile-all (compile sample-project ":all") (is (.exists (file "test_projects" "sample" "target" "classes" "nom" "nom" "nom.class")))) @@ -40,7 +40,7 @@ (def eip-check (atom false)) -(deftest test-plugin +(deftest ^:online test-plugin (reset! eip-check false) (eval/eval-in-project (assoc sample-project :eval-in :leiningen @@ -49,7 +49,7 @@ `(reset! eip-check true)) (is @eip-check)) -(deftest test-cleared-transitive-aot +(deftest ^:online test-cleared-transitive-aot (compile (assoc sample-project :clean-non-project-classes true) "nom.nom.nom") (eval/eval-in-project sample-project '(require 'nom.nom.nom)) (let [classes (seq (.list (file "test_projects" "sample" "target" @@ -62,7 +62,7 @@ (is (not (.exists (file "test_projects" "sample" "target" "classes" "sample2" "alt.class"))))) -(deftest test-cleared-transitive-aot-by-regexes +(deftest ^:online test-cleared-transitive-aot-by-regexes (compile (assoc sample-project :clean-non-project-classes [#"core"]) "nom.nom.nom") (let [classes (seq (.list (file "test_projects" "sample" "target" @@ -75,7 +75,7 @@ (is (.exists (file "test_projects" "sample" "target" "classes" "sample2" "alt__init.class")))) -(deftest test-injection +(deftest ^:online test-injection (eval/eval-in-project (assoc sample-project :injections ['(do (ns inject.stuff) (def beef :hot))]) diff --git a/test/leiningen/test/deploy.clj b/test/leiningen/test/deploy.clj index ea685b91..5d5ca0e6 100644 --- a/test/leiningen/test/deploy.clj +++ b/test/leiningen/test/deploy.clj @@ -27,15 +27,15 @@ ;; TODO: this is vulnerable to the y3k bug! (is (seq (filter #(re-find #"nomnomnom-0.5.0-2\d{7}\." %) files)))))) -(deftest test-deploy +(deftest ^:online test-deploy (testing "simple deployment to `snapshots` already defined in project.clj" (deploy-snapshots sample-project "lein-repo"))) -(deftest test-deploy-custom-url +(deftest ^:online test-deploy-custom-url (testing "deployment to a repo specified as a URL argument to `deploy`" (deploy-snapshots sample-project "lein-custom-repo" true))) -(deftest test-deploy-repositories-key +(deftest ^:online test-deploy-repositories-key (testing "preferring repository in :deploy-repositories over :repositories" (deploy-snapshots (assoc sample-project :deploy-repositories