Add a failing test for overlapped sourcepaths.

This commit is contained in:
Anthony Grimes 2012-03-06 15:58:14 -06:00
parent d6fdc21648
commit 82df67b959
4 changed files with 10 additions and 1 deletions

View file

@ -24,6 +24,8 @@
(def native-project (read-test-project "native"))
(def overlapped-sourcepaths-project (read-test-project "overlapped-sourcepaths"))
;; grumble, grumble; why didn't this make it into clojure.java.io?
(defn delete-file-recursively
"Delete file f. If it's a directory, recursively delete all its contents.

View file

@ -4,7 +4,8 @@
[leiningen.jar]
[leiningen.core.eval :only [platform-nullsink]]
[leiningen.test.helper :only [tricky-name-project sample-failing-project
sample-no-aot-project sample-project]])
sample-no-aot-project sample-project
overlapped-sourcepaths-project]])
(:import [java.util.jar JarFile]))
(def mock-project {:name "mock-project" :version "1.0"
@ -69,3 +70,6 @@
(let [jar-file (jar (dissoc sample-project :dependencies :main))]
(and (is (not (number? jar-file)))
(is (.exists (io/file jar-file))))))
(deftest overlapped-paths
(is (jar overlapped-sourcepaths-project)))

View file

@ -0,0 +1,3 @@
(defproject overlapped-sourcepaths "0.1.0"
:dependencies [[org.clojure/clojure "1.3.0"]]
:java-source-paths ["src"])