add support for the :patch HTTP method

also fixes tests for the strange HTTP methods no one actually uses

Author: dakrone

Readme.md

@@ -44,8 +44,8 @@ Require it in your application:
 ```
 
 The client supports simple `get`, `head`, `put`, `post`, `delete`,
-`copy`, `move`, and `options` requests. Responses are returned as
-Ring-style response maps:
+`copy`, `move`, `patch` and `options` requests. Responses are returned
+as Ring-style response maps:
 
 ```clojure
 (client/get "http://google.com")

changelog.org

@@ -139,6 +139,7 @@
 ** 2012-04-27
    - merged https://github.com/dakrone/clj-http/pull/68 to support
      additional options/delete/copy/move HTTP methods
+   - add support for the :patch method type
 ** Release 0.4.0
 ** 2012-04-22
    - merged https://github.com/dakrone/clj-http/pull/66 to add support

src/clj_http/client.clj

@@ -472,6 +472,12 @@
   (check-url! url)
   (request (merge req {:method :move :url url})))
 
+(defn patch
+  "Like #'request, but sets the :method and :url as appropriate."
+  [url & [req]]
+  (check-url! url)
+  (request (merge req {:method :patch :url url})))
+
 (defmacro with-connection-pool
   "Macro to execute the body using a connection manager. Creates a
   ThreadSafeClientConnectionManager to use for all requests within the body of

src/clj_http/core.clj

@@ -61,6 +61,7 @@
 (def proxy-get-with-body (make-proxy-method-with-body :get))
 (def proxy-copy-with-body (make-proxy-method-with-body :copy))
 (def proxy-move-with-body (make-proxy-method-with-body :move))
+(def proxy-patch-with-body (make-proxy-method-with-body :patch))
 
 (def ^SSLSocketFactory insecure-socket-factory
   (doto (SSLSocketFactory. (reify TrustStrategy
@@ -203,6 +204,7 @@
                      :delete  (proxy-delete-with-body http-url)
                      :copy    (proxy-copy-with-body http-url)
                      :move    (proxy-move-with-body http-url)
+                     :patch   (proxy-patch-with-body http-url)
                      (throw (IllegalArgumentException.
                               (str "Invalid request method " request-method))))]
       (when (and content-type character-encoding)

test/clj_http/test/core.clj

@@ -42,11 +42,13 @@
     [:get "/get-with-body"]
     {:status 200 :body (:body req)}
     [:options "/options"]
-    {:status 200 :body req}
-    [:options "/copy"]
-    {:status 200 :body req}
-    [:options "/move"]
-    {:status 200 :body req}))
+    {:status 200 :body "options"}
+    [:copy "/copy"]
+    {:status 200 :body "copy"}
+    [:move "/move"]
+    {:status 200 :body "move"}
+    [:patch "/patch"]
+    {:status 200 :body "patch"}))
 
 (defn run-server
   []
@@ -258,10 +260,12 @@
 ;; super-basic test for methods that aren't used that often
 (deftest ^{:integration true} t-copy-options-move
   (run-server)
-  (let [resp1 (client/get "http://localhost:18080/options")
-        resp2 (client/get "http://localhost:18080/move")
-        resp3 (client/get "http://localhost:18080/copy")]
-    (is (= #{200} (set (map :status [resp1 resp2 resp3]))))
-    (is (= :options (:method resp1)))
-    (is (= :move (:method resp2)))
-    (is (= :copy (:method resp3)))))
+  (let [resp1 (client/options "http://localhost:18080/options")
+        resp2 (client/move "http://localhost:18080/move")
+        resp3 (client/copy "http://localhost:18080/copy")
+        resp4 (client/patch "http://localhost:18080/patch")]
+    (is (= #{200} (set (map :status [resp1 resp2 resp3 resp4]))))
+    (is (= "options" (:body resp1)))
+    (is (= "move" (:body resp2)))
+    (is (= "copy" (:body resp3)))
+    (is (= "patch" (:body resp4)))))