diff --git a/test/leiningen/test/helper.clj b/test/leiningen/test/helper.clj index a711da02..d995c42b 100644 --- a/test/leiningen/test/helper.clj +++ b/test/leiningen/test/helper.clj @@ -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. diff --git a/test/leiningen/test/jar.clj b/test/leiningen/test/jar.clj index 54a92fdf..c4889419 100644 --- a/test/leiningen/test/jar.clj +++ b/test/leiningen/test/jar.clj @@ -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))) diff --git a/test_projects/overlapped-sourcepaths/project.clj b/test_projects/overlapped-sourcepaths/project.clj new file mode 100644 index 00000000..cf66bf1d --- /dev/null +++ b/test_projects/overlapped-sourcepaths/project.clj @@ -0,0 +1,3 @@ +(defproject overlapped-sourcepaths "0.1.0" + :dependencies [[org.clojure/clojure "1.3.0"]] + :java-source-paths ["src"]) diff --git a/test_projects/overlapped-sourcepaths/src/foo b/test_projects/overlapped-sourcepaths/src/foo new file mode 100644 index 00000000..e69de29b