Merge commit 'neotyk/master'
This commit is contained in:
commit
40d8c2cff5
2 changed files with 11 additions and 1 deletions
|
@ -22,7 +22,8 @@ Neither group-id nor artifact-id may contain slashes."
|
|||
['org.clojure/clojure-contrib
|
||||
"1.0-SNAPSHOT"]])))
|
||||
(let [project-ns (.replace (str project-name) "/" ".")
|
||||
project-clj (str (.replace (str project-name) "-" "_") ".clj")]
|
||||
project-clj (str (apply str (replace {\- \_, \. \/} project-ns))
|
||||
".clj")]
|
||||
(.mkdirs (file project-dir "test"))
|
||||
(.mkdirs (.getParentFile (file project-dir "src" project-clj)))
|
||||
(spit (file project-dir "src" project-clj)
|
||||
|
|
9
test/test_new.clj
Normal file
9
test/test_new.clj
Normal file
|
@ -0,0 +1,9 @@
|
|||
(ns test-new
|
||||
(:use [clojure.test]
|
||||
[clojure.contrib.java-utils :only [delete-file-recursively file]]
|
||||
[clojure.contrib.shell-out :only [with-sh-dir sh]]))
|
||||
|
||||
(deftest test-new
|
||||
(sh "lein" "new" "a.b/test-new-proj")
|
||||
(is (.exists (file "test-new-proj" "src" "a" "b" "test_new_proj.clj")))
|
||||
(delete-file-recursively (file "test-new-proj") false))
|
Loading…
Reference in a new issue