X-Git-Url: http://challenge-bot.com/repos/?a=blobdiff_plain;f=test%2Fleiningen%2Fnew%2Fflibbertigibbet_test.clj;fp=test%2Fleiningen%2Fnew%2Fflibbertigibbet_test.clj;h=8bb6a95ff66b610039320dea2eff7db1c9b1c224;hb=fa24711ecb31e12e224f0bbb57894b803e72fc94;hp=0000000000000000000000000000000000000000;hpb=731451ad4f246565188c0e1a185d74dfcefa4a44;p=flibbertigibbet

diff --git a/test/leiningen/new/flibbertigibbet_test.clj b/test/leiningen/new/flibbertigibbet_test.clj
new file mode 100644
index 0000000..8bb6a95
--- /dev/null
+++ b/test/leiningen/new/flibbertigibbet_test.clj
@@ -0,0 +1,23 @@
+(ns leiningen.new.flibbertigibbet-test
+  (:require [clojure.test :refer :all]
+            [leiningen.new.flibbertigibbet :refer :all]))
+
+(defn safe-delete [file-path]
+  (if (.exists (clojure.java.io/file file-path))
+    (try
+      (clojure.java.io/delete-file file-path)
+      (catch Exception e (str "exception: " (.getMessage e))))
+    false))
+
+(defn delete-directory [directory]
+  (let [contents (file-seq (clojure.java.io/file directory))
+        delete-files (filter #(.isFile %) contents)]
+    (doseq [file delete-files]
+      (safe-delete (.getPath file)))
+    (safe-delete directory)))
+
+(deftest a-test
+  (testing "flibbertigibbet should advertise itself, so i know it works"
+    (is (= "Generating fresh 'lein new' flibbertigibbet project: projecta\n"
+           (with-out-str (flibbertigibbet "projecta"))))
+    (delete-directory "./projecta")))