Merge: Support HTTP PATCH methodexternals/plz

See #49.

3 files changed, 18 insertions, 2 deletions

diff --git a/README.org b/README.org
index 2705cbd..0afc1d0 100644
--- a/README.org
+++ b/README.org
@@ -190,7 +190,9 @@ You may also clear a queue with ~plz-clear~, which cancels any active or queued
 
 ** 0.10-pre
 
-Nothing new yet.
+*Additions*
+
++ Support for the HTTP PATCH method.  ([[https://github.com/alphapapa/plz.el/pull/49][#49]].  Thanks to [[https://github.com/fpvmorais][Pedro Morais]].)
 
 ** 0.9.1
 
diff --git a/plz.el b/plz.el
index 903d71e..22cf6de 100644
--- a/plz.el
+++ b/plz.el
@@ -456,7 +456,7 @@ into the process buffer.
                                       ;; requests which output to the terminal.
                                       (list (cons "--dump-header" null-device))))
                                    (pcase method
-                                     ((or 'put 'post)
+                                     ((or 'put 'post 'patch)
                                       (list
                                        ;; It appears that this must be the last argument
                                        ;; in order to pass data on the rest of STDIN.
diff --git a/tests/test-plz.el b/tests/test-plz.el
index 415edfd..7484cb2 100644
--- a/tests/test-plz.el
+++ b/tests/test-plz.el
@@ -171,6 +171,20 @@ in URL-encoded form)."
       (should (string-match "curl" .headers.User-Agent))
       (should (string= "value" (alist-get 'key (json-read-from-string .data)))))))
 
+(plz-deftest plz-patch-json-string nil
+  (let* ((json-string (json-encode (list (cons "key" "value"))))
+         (response-json)
+         (process (plz 'patch (url "/patch")
+                    :headers '(("Content-Type" . "application/json"))
+                    :body json-string
+                    :as #'json-read
+                    :then (lambda (json)
+                            (setf response-json json)))))
+    (plz-test-wait process)
+    (let-alist response-json
+      (should (string-match "curl" .headers.User-Agent))
+      (should (string= "value" (alist-get 'key (json-read-from-string .data)))))))
+
 (plz-deftest plz-post-jpeg-string nil
   (let* ((jpeg-to-upload (plz 'get (url "/image/jpeg")
                            :as 'binary :then 'sync))