Commit 82df67b9 authored by Anthony Grimes's avatar Anthony Grimes

Add a failing test for overlapped sourcepaths.

parent d6fdc216
......@@ -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.
......
......@@ -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)))
(defproject overlapped-sourcepaths "0.1.0"
:dependencies [[org.clojure/clojure "1.3.0"]]
:java-source-paths ["src"])
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment