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

Merge commit 'neotyk/master'

Browse source
This commit is contained in:
Phil Hagelberg 2010-01-02 15:53:49 -08:00
commit 40d8c2cff5
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/leiningen/new.clj
View file

@ -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
View 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))