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
|
['org.clojure/clojure-contrib
|
||||||
"1.0-SNAPSHOT"]])))
|
"1.0-SNAPSHOT"]])))
|
||||||
(let [project-ns (.replace (str project-name) "/" ".")
|
(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 (file project-dir "test"))
|
||||||
(.mkdirs (.getParentFile (file project-dir "src" project-clj)))
|
(.mkdirs (.getParentFile (file project-dir "src" project-clj)))
|
||||||
(spit (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