yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add one more subtask-help test.

Browse source
This commit is contained in:
Colin Jones 2010-10-26 23:45:19 -05:00
parent 18e69ea035
commit 07072396b4
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/test_help.clj
View file

@ -3,6 +3,7 @@
[clojure.test]))
(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 resolve-task @#'leiningen.help/resolve-task)
@ -19,7 +20,9 @@
(is (= "This is an
AWESOME command
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
(is (= "install This is an
@ -27,3 +30,8 @@
For real!"
(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))))))