Update leiningen.core.main tests.

leiningen-core/test/leiningen/bluuugh.clj

@@ -0,0 +1,5 @@
+(ns leiningen.bluuugh)
+
+(defn ^:no-project-needed bluuugh
+  [project]
+  (println "This is a dummy task for tests."))

leiningen-core/test/leiningen/core/test/main.clj

@@ -0,0 +1,40 @@
+(ns leiningen.core.test.main
+  (:use [clojure.test]
+        [leiningen.core.main]))
+
+(deftest test-group-args-empty-args
+  (is (= [[]] (group-args []))))
+
+(deftest test-group-args-single-task
+  (is (= [["pom"]] (group-args ["pom"]))))
+
+(deftest test-group-args-without-args
+  (is (= [["clean"] ["deps"] ["test"]]
+         (group-args ["clean," "deps," "test"]))))
+
+(deftest test-group-args-with-args
+  (is (= [["test" "test-core"] ["version"]]
+         (group-args ["test" "test-core," "version"]))))
+
+(deftest test-group-args-with-long-chain
+  (is (= [["help" "help"] ["help" "version"] ["version"]
+          ["test" "test-compile"]]
+         (group-args '("help" "help," "help" "version," "version,"
+                       "test" "test-compile")))))
+
+(deftest test-matching-arity
+  (is (not (matching-arity? (resolve-task "bluuugh") ["bogus" "arg" "s"])))
+  (is (matching-arity? (resolve-task "bluuugh") []))
+  (is (matching-arity? (resolve-task "var-args") []))
+  (is (matching-arity? (resolve-task "var-args") ["test-core" "hey"]))
+  (is (not (matching-arity? (resolve-task "one-or-two") [])))
+  (is (matching-arity? (resolve-task "one-or-two") ["clojure"]))
+  (is (matching-arity? (resolve-task "one-or-two") ["clojure" "2"]))
+  (is (not (matching-arity? (resolve-task "one-or-two") ["clojure" "2" "3"]))))
+
+(deftest test-version-satisfies
+  (is (version-satisfies? "1.5.0" "1.4.2"))
+  (is (not (version-satisfies? "1.4.2" "1.5.0")))
+  (is (version-satisfies? "1.2.3" "1.1.1"))
+  (is (version-satisfies? "1.2.0" "1.2"))
+  (is (version-satisfies? "1.2" "1")))

leiningen-core/test/leiningen/one_or_two.clj

@@ -0,0 +1,6 @@
+(ns leiningen.one-or-two)
+
+(defn one-or-two
+  "Dummy task for tests"
+  ([project one])
+  ([project one two]))

leiningen-core/test/leiningen/var_args.clj

@@ -0,0 +1,4 @@
+(ns leiningen.var-args)
+
+(defn var-args [project & args]
+  (println "a dummy task for tests."))