Add one more subtask-help test.
This commit is contained in:
parent
18e69ea035
commit
07072396b4
1 changed files with 9 additions and 1 deletions
|
@ -3,6 +3,7 @@
|
||||||
[clojure.test]))
|
[clojure.test]))
|
||||||
|
|
||||||
(def formatted-docstring @#'leiningen.help/formatted-docstring)
|
(def formatted-docstring @#'leiningen.help/formatted-docstring)
|
||||||
|
(def get-subtasks-and-docstrings-for @#'leiningen.help/get-subtasks-and-docstrings-for)
|
||||||
(def formatted-help @#'leiningen.help/formatted-help)
|
(def formatted-help @#'leiningen.help/formatted-help)
|
||||||
(def resolve-task @#'leiningen.help/resolve-task)
|
(def resolve-task @#'leiningen.help/resolve-task)
|
||||||
|
|
||||||
|
@ -19,7 +20,9 @@
|
||||||
(is (= "This is an
|
(is (= "This is an
|
||||||
AWESOME command
|
AWESOME command
|
||||||
For real!"
|
For real!"
|
||||||
(formatted-docstring "install" "This is an\n AWESOME command\nFor real!" 5))))
|
(formatted-docstring
|
||||||
|
"install"
|
||||||
|
"This is an\n AWESOME command\nFor real!" 5))))
|
||||||
|
|
||||||
(deftest test-formatted-help
|
(deftest test-formatted-help
|
||||||
(is (= "install This is an
|
(is (= "install This is an
|
||||||
|
@ -27,3 +30,8 @@
|
||||||
For real!"
|
For real!"
|
||||||
(formatted-help "install" "This is an\nAWESOME command\nFor real!" 15))))
|
(formatted-help "install" "This is an\nAWESOME command\nFor real!" 15))))
|
||||||
|
|
||||||
|
(deftest test-get-subtasks
|
||||||
|
(let [m (get-subtasks-and-docstrings-for (second (resolve-task "plugin")))]
|
||||||
|
(is (= ["install" "uninstall"]
|
||||||
|
(sort (keys m))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue