2010-03-16 00:52:57 +00:00
|
|
|
(ns test-pom
|
|
|
|
|
(:use [leiningen.core :only [read-project defproject]]
|
2010-08-14 21:32:14 +00:00
|
|
|
[leiningen.util.maven :only [make-model]]
|
|
|
|
|
[leiningen.pom :only [pom]])
|
2010-03-16 00:52:57 +00:00
|
|
|
(:use [clojure.test]
|
2010-09-09 04:05:03 +00:00
|
|
|
[clojure.java.io :only [file delete-file]]))
|
2010-03-16 00:52:57 +00:00
|
|
|
|
2010-08-24 03:03:52 +00:00
|
|
|
(def test-project (read-project "test_projects/sample/project.clj"))
|
2010-03-16 00:52:57 +00:00
|
|
|
|
|
|
|
|
(deftest test-pom
|
|
|
|
|
(let [pom-file (file (:root test-project) "pom.xml")]
|
|
|
|
|
(delete-file pom-file true)
|
|
|
|
|
(pom test-project)
|
|
|
|
|
(is (.exists pom-file))))
|
|
|
|
|
|
|
|
|
|
(deftest test-make-model-includes-build-settings
|
|
|
|
|
(let [model (make-model test-project)]
|
|
|
|
|
(is (= "src" (-> model .getBuild .getSourceDirectory)))
|
|
|
|
|
(is (= "test" (-> model .getBuild .getTestSourceDirectory)))))
|
