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

Merge pull request #442 from michaelklishin/one-more-test-for-the-new-task

Browse source 
One more test for the new task
This commit is contained in:
Phil Hagelberg 2012-03-11 21:14:32 -07:00
commit a3af7f5770
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/leiningen/test/new.clj
View file

@ -4,9 +4,16 @@
[clojure.java.io :only [file]]
[leiningen.test.helper :only [delete-file-recursively]]))
(deftest test-new
(deftest test-new-with-just-project-name
(leiningen.new/new nil "test-new-proj")
(is (= #{"README.md" "project.clj" "src" "core.clj" "test"
"test_new_proj" "core_test.clj" ".gitignore"}
(set (map (memfn getName) (rest (file-seq (file "test-new-proj")))))))
(delete-file-recursively (file "test-new-proj") false))
(deftest test-new-with-group-and-project-name
(leiningen.new/new nil "orgname/a-project")
(is (= #{"README.md" "project.clj" "orgname" "src" "core.clj" "test"
"a_project" "core_test.clj" ".gitignore"}
(set (map (memfn getName) (rest (file-seq (file "a-project")))))))
(delete-file-recursively (file "a-project") false))