2009-11-14 23:00:46 +00:00
|
|
|
(ns test-compile
|
|
|
|
(:use [clojure.test]
|
2010-04-17 02:55:28 +00:00
|
|
|
[clojure.contrib.io :only [delete-file-recursively file]]
|
|
|
|
[clojure.contrib.shell :only [with-sh-dir sh]]))
|
2009-11-14 23:00:46 +00:00
|
|
|
|
|
|
|
(deftest test-compile
|
|
|
|
(delete-file-recursively (file "sample" "classes" "nom") true)
|
|
|
|
(with-sh-dir "sample"
|
|
|
|
(sh "lein" "compile"))
|
|
|
|
(is (.exists (file "sample" "classes" "nom" "nom" "nom.class"))))
|