Add another test for arg chaining.

This commit is contained in:
Phil Hagelberg 2010-08-08 10:44:19 -07:00
parent e451e12b55
commit 282782c9d6

View file

@ -15,3 +15,9 @@
(deftest test-make-groups-with-args
(is (= [["test" "test-core"] ["version"]]
(make-groups ["test" "test-core," "version"]))))
(deftest test-make-groups-with-long-chain
(is (= [["help" "help"] ["help" "version"] ["version"]
["test" "test-compile"]]
(make-groups '("help" "help," "help" "version," "version,"
"test" "test-compile")))))