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

Fix test file for generated projects.

Browse source
This commit is contained in:
Phil Hagelberg 2010-01-30 22:10:07 -08:00
parent 3130064c8a
commit bd0e725548
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/leiningen/new.clj
View file

@ -18,19 +18,18 @@ Neither group-id nor artifact-id may contain slashes."
(str "(defproject " project-name " \"1.0.0-SNAPSHOT\"\n" (str "(defproject " project-name " \"1.0.0-SNAPSHOT\"\n"
" :description \"FIXME: write\"\n" " :description \"FIXME: write\"\n"
" :dependencies [[org.clojure/clojure \"1.1.0\"]\n" " :dependencies [[org.clojure/clojure \"1.1.0\"]\n"
" [org.clojure/clojure-contrib " " [org.clojure/clojure-contrib \"1.1.0\"]])"))
"\"1.1.0-SNAPSHOT\"]])"))
(let [project-ns (.replace (str project-name) "/" ".") (let [project-ns (.replace (str project-name) "/" ".")
project-clj (str (apply str (replace {\- \_, \. \/} project-ns)) project-clj (str (apply str (replace {\- \_, \. \/} project-ns))
".clj") ".clj")
test-clj (.replace project-clj ".clj" "-test.clj")] test-clj (.replace project-clj ".clj" "_test.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)
(str "(ns " project-ns ")\n")) (str "(ns " project-ns ")\n"))
(.mkdirs (.getParentFile (file project-dir "test" project-clj))) (.mkdirs (.getParentFile (file project-dir "test" test-clj)))
(spit (file project-dir "test" test-clj) (spit (file project-dir "test" test-clj)
(str "(ns " (.replace test-clj "\\." "/") (str "(ns " (str project-ns "-test")
"\n (:use [" project-ns "] :reload-all)" "\n (:use [" project-ns "] :reload-all)"
"\n (:use [clojure.test]))\n\n" "\n (:use [clojure.test]))\n\n"
"(deftest replace-me ;; FIXME: write\n (is false))\n")) "(deftest replace-me ;; FIXME: write\n (is false))\n"))