Merge pull request #4 from arichiardi/directory-default

Add :default case for directory? (fixes #1)
weavejester · Feb 20, 2017 · eb5762c · eb5762c
2 parents 7b57ec8 + 27a4314
commit eb5762c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/resauce/core.clj b/src/resauce/core.clj
@@ -38,6 +38,9 @@
         entry (.getEntry jar (add-ending-slash path))]
     (and entry (.isDirectory entry))))
 
+(defmethod directory? :default [url]
+  false)
+
 (defmulti url-dir
   "Return a list of URLs contained by this URL, if the protocol supports it."
   {:arglists '([url])}

diff --git a/test/resauce/core_test.clj b/test/resauce/core_test.clj
@@ -7,7 +7,8 @@
   (is (directory? (io/resource "resauce")))
   (is (directory? (io/resource "clojure")))
   (is (not (directory? (io/resource "resauce/core.clj"))))
-  (is (not (directory? (io/resource "clojure/core.clj")))))
+  (is (not (directory? (io/resource "clojure/core.clj"))))
+  (is (not (directory? nil))))
 
 (deftest test-resources
   (let [rs (sort (map str (resources "resauce")))]