Tests: (plz-head-temp-file) Add

alphapapa · Aug 16, 2024 · 60c8e3f · 60c8e3f
1 parent 570eae7
commit 60c8e3f
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/test-plz.el b/tests/test-plz.el
@@ -470,6 +470,16 @@ in URL-encoded form)."
       ;; It's a temp file, so it should always be deleted.
       (delete-file filename))))
 
+(plz-deftest plz-head-temp-file ()
+  (let ((filename (plz 'head (url "/image/jpeg")
+                    :as 'file :then 'sync)))
+    (unwind-protect
+        (with-temp-buffer
+          (insert-file-contents filename)
+          (should (re-search-forward "Content-Type: image/jpeg")))
+      ;; It's a temp file, so it should always be deleted.
+      (delete-file filename))))
+
 (plz-deftest plz-get-named-file ()
   (let ((filename (make-temp-file "plz-")))
     ;; HACK: Delete the temp file and reuse its name, because