branch: externals/plz
commit 220f882ee4806904505aaeaaa014de0c2d874707
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Tests: (plz-post-jpeg-string) Add
---
tests/test-plz.el | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/tests/test-plz.el b/tests/test-plz.el
index 8ef261c3b8..d622fabc08 100644
--- a/tests/test-plz.el
+++ b/tests/test-plz.el
@@ -119,6 +119,22 @@
(should (string-match "curl" .headers.User-Agent))
(should (string= "value" (alist-get 'key (json-read-from-string
.data)))))))
+(ert-deftest plz-post-jpeg-string nil
+ (let* ((jpeg-string (plz-get-sync "https://httpbin.org/image/jpeg";
+ :as 'binary))
+ (response-jpeg)
+ (process (plz 'post "https://httpbin.org/post";
+ :headers '(("Content-Type" . "image/jpeg"))
+ :body jpeg-string
+ :as #'json-read
+ :then (lambda (json)
+ (setf response-jpeg
+ (base64-decode-string
+ (string-remove-prefix
"data:application/octet-stream;base64,"
+ (alist-get 'data
json))))))))
+ (plz-test-wait process)
+ (should (equal 'jpeg (image-type-from-data response-jpeg)))))
+
;; TODO: POST JSON buffer.
(ert-deftest plz-put-json-string nil
