2009-11-14 23:00:46 +00:00
|
|
|
(ns test-compile
|
|
|
|
|
(:use [clojure.test]
|
2010-09-09 04:05:03 +00:00
|
|
|
[clojure.java.io :only [file]]
|
|
|
|
|
[clojure.java.shell :only [with-sh-dir sh]]
|
|
|
|
|
[leiningen.util.file :only [delete-file-recursively]]))
|
2009-11-14 23:00:46 +00:00
|
|
|
|
|
|
|
|
(deftest test-compile
|
2010-08-24 03:10:57 +00:00
|
|
|
(delete-file-recursively (file "test_projects" "sample" "classes" "nom") true)
|
|
|
|
|
(with-sh-dir (file "test_projects" "sample")
|
2010-08-25 01:14:24 +00:00
|
|
|
(is (zero? (:exit (sh "lein" "compile" :return-map true)))))
|
|
|
|
|
(is (.exists (file "test_projects" "sample"
|
|
|
|
|
"classes" "nom" "nom" "nom.class")))
|
|
|
|
|
(with-sh-dir (file "test_projects" "sample_failing")
|
|
|
|
|
(is (not (zero? (:exit (sh "lein" "compile" :return-map true)))))))
|
