Made resource root more robust, added test

@@ -60,8 +60,8 @@
   Options:
     :root - take the resource relative to this root"
   [path & [opts]]
-  (let [opts   (apply hash-map opts)
-        path   (str (opts :root "") path)
+  (let [path   (str (:root opts "") "/" path)
+        path   (.replace path "//" "/")
         loader (clojure.lang.RT/baseLoader)]
     (if-let [resource (.getResourceAsStream loader path)]
       (response resource))))

@@ -25,5 +25,10 @@
     (is (.startsWith (slurp* (resp :body))
                      "(ns ring.util.response-test"))))
 
+(deftest test-resource-with-root
+  (let [resp (resource-response "response_test.clj" {:root "/ring/util"})]
+    (is (.startsWith (slurp* (resp :body))
+                     "(ns ring.util.response-test"))))
+
 (deftest test-missing-resource
   (is (nil? (resource-response "/missing/resource.clj"))))