Treat context for '/' the same as a blank string

Fixes #125.

Author: weavejester

src/compojure/core.clj

@@ -208,18 +208,20 @@
   (subs path 0 (- (count path) (count suffix))))
 
 (defn- if-context [route handler]
-  (fn [request]
-    (if-let [params (clout/route-matches route request)]
-      (let [uri     (:uri request)
-            path    (:path-info request uri)
-            context (or (:context request) "")
-            subpath (:__path-info params)
-            params  (dissoc params :__path-info)]
-        (handler
-         (-> request
-             (assoc-route-params (decode-route-params params))
-             (assoc :path-info (if (= subpath "") "/" subpath)
-                    :context   (remove-suffix uri subpath))))))))
+  (if (#{":__path-info" "/:__path-info"} (:source route))
+    handler
+    (fn [request]
+      (if-let [params (clout/route-matches route request)]
+        (let [uri     (:uri request)
+              path    (:path-info request uri)
+              context (or (:context request) "")
+              subpath (:__path-info params)
+              params  (dissoc params :__path-info)]
+          (handler
+           (-> request
+               (assoc-route-params (decode-route-params params))
+               (assoc :path-info (if (= subpath "") "/" subpath)
+                      :context   (remove-suffix uri subpath)))))))))
 
 (defn- context-route [route]
   (let [re-context {:__path-info #"|/.*"}]

test/compojure/core_test.clj

@@ -214,7 +214,18 @@
           request        (mock/request :get "/emote/%5C%3F%2F") ]
       (is (= (-> request handler :body)        "\\?/"))
       (is (= (-> request cxt-handler :body)    "\\?/"))
-      (is (= (-> request in-cxt-handler :body) "\\?/")))))
+      (is (= (-> request in-cxt-handler :body) "\\?/"))))
+
+  (testing "root context"
+    (let [handler (context "/" []
+                    (GET "/" [] "root")
+                    (GET "/foo" [] "foo")
+                    (GET "/foo/:x" [x] x))]
+      (are [url body] (= (:body (handler (mock/request :get url)))
+                         body)
+        "/"      "root"
+        "/foo"   "foo"
+        "/foo/2" "2"))))
 
 (deftest let-routes-test
   (let [handler (let-routes [a "foo", b "bar"]