2009-12-31 09:36:14 +00:00
|
|
|
(ns test-new
|
2010-09-22 03:16:56 +00:00
|
|
|
(:require [leiningen.new] :reload)
|
2009-12-31 09:36:14 +00:00
|
|
|
(:use [clojure.test]
|
2010-09-09 04:05:03 +00:00
|
|
|
[clojure.java.io :only [file]]
|
2010-09-22 03:16:56 +00:00
|
|
|
[leiningen.util.file :only [delete-file-recursively]]))
|
2009-12-31 09:36:14 +00:00
|
|
|
|
|
|
|
|
(deftest test-new
|
2010-09-22 03:16:56 +00:00
|
|
|
(leiningen.new/new "a.b/test-new-proj")
|
2010-03-11 03:36:21 +00:00
|
|
|
(is (.exists (file "test-new-proj" "src" "a" "b" "test_new_proj" "core.clj")))
|
2010-04-17 02:55:28 +00:00
|
|
|
(delete-file-recursively (file "test-new-proj") false))
|
