fixup: fix test, add test for :compojure/context

Author: calvis

test/compojure/core_test.clj

@@ -38,7 +38,7 @@
                   (assoc :params {:y "bar"}))]
       ((GET "/:x" [x :as r]
             (is (= x "foo"))
-            (is (= (dissoc r :params :route-params :compojure/route)
+            (is (= (dissoc r :params :route-params :compojure/route :compojure/full-route)
                    (dissoc req :params)))
             nil)
        req)))
@@ -323,11 +323,17 @@
         request (route (mock/request :post "/foo/1" {}))]
     (testing "ANY request has matched route information"
       (is (= (request :compojure/route)
-             [:any "/foo/:id"]))))
+             [:any "/foo/:id"]))
+      (is (= (request :compojure/full-route)
+             "/foo/:id"))))
 
   (let [route (context "/foo/:foo-id" [_] (GET "/bar/:bar-id" req req))
         request (route (mock/request :get "/foo/1/bar/2"))]
     (testing "request has matched route information with path prefix"
+      (is (= (request :compojure/route)
+             [:get "/bar/:bar-id"]))
+      (is (= (request :compojure/context)
+             "/foo/:foo-id"))
       (is (= (request :compojure/full-route)
              "/foo/:foo-id/bar/:bar-id"))))
 
@@ -336,6 +342,8 @@
                   (GET "/baz/:baz-id" req req)))
         request (route (mock/request :get "/foo/1/bar/2/baz/3"))]
     (testing "request has matched route information with multiple path prefix"
+      (is (= (request :compojure/context)
+             "/foo/:foo-id/bar/:bar-id"))
       (is (= (request :compojure/full-route)
              "/foo/:foo-id/bar/:bar-id/baz/:baz-id")))))