2010-10-27 03:36:57 +00:00
|
|
|
(ns test-help
|
|
|
|
|
(:use [leiningen.help]
|
|
|
|
|
[clojure.test]))
|
|
|
|
|
|
2010-10-27 04:32:42 +00:00
|
|
|
(def formatted-docstring @#'leiningen.help/formatted-docstring)
|
|
|
|
|
(def formatted-help @#'leiningen.help/formatted-help)
|
|
|
|
|
(def resolve-task @#'leiningen.help/resolve-task)
|
|
|
|
|
|
|
|
|
|
(deftest blank-subtask-help-for-new
|
|
|
|
|
(let [subtask-help (apply subtask-help-for (resolve-task "new"))]
|
|
|
|
|
(is (= nil subtask-help))))
|
|
|
|
|
|
|
|
|
|
(deftest subtask-help-for-plugin
|
|
|
|
|
(let [subtask-help (apply subtask-help-for (resolve-task "plugin"))]
|
|
|
|
|
(is (re-find #"install" subtask-help))
|
|
|
|
|
(is (re-find #"uninstall" subtask-help))))
|
|
|
|
|
|
|
|
|
|
(deftest test-docstring-formatting
|
|
|
|
|
(is (= "This is an
|
|
|
|
|
AWESOME command
|
|
|
|
|
For real!"
|
|
|
|
|
(formatted-docstring "install" "This is an\n AWESOME command\nFor real!" 5))))
|
|
|
|
|
|
|
|
|
|
(deftest test-formatted-help
|
|
|
|
|
(is (= "install This is an
|
|
|
|
|
AWESOME command
|
|
|
|
|
For real!"
|
|
|
|
|
(formatted-help "install" "This is an\nAWESOME command\nFor real!" 15))))
|
|
|
|
|
|
