[elpa] externals/plz-media-type c2c7f5f2ef 02/26: Add tests for DNS resolve errors

[ELPA Syncer]

branch: externals/plz-media-type
commit c2c7f5f2ef73df2b08756b19c5aad7d263c30bea
Author: Roman Scherer <roman@burningswell.com>
Commit: Roman Scherer <roman@burningswell.com>

    Add tests for DNS resolve errors
---
 tests/test-plz-media-type.el | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/tests/test-plz-media-type.el b/tests/test-plz-media-type.el
index fb24a28f42..33ac72cad1 100644
--- a/tests/test-plz-media-type.el
+++ b/tests/test-plz-media-type.el
@@ -359,6 +359,38 @@
     (should (equal "Operation timeout." (cdr (plz-error-curl-error 
plz-error))))
     (should (< (time-to-seconds (time-subtract end-time start-time)) 1.1))))
 
+(ert-deftest plz-media-type-request-resolve-error-async ()
+  (let* ((else) (finally) (then)
+         (process (plz-media-type-request 'get 
"https://httpbinnnnnn.org/get/status/404";
+                    :as `(media-types ,plz-media-types)
+                    :else (lambda (object) (push object else))
+                    :finally (lambda () (push t finally))
+                    :then (lambda (object) (push object then)))))
+    (plz-media-type-test-wait process)
+    (should (equal '(t) finally))
+    (should (equal 0 (length then)))
+    (should (equal 1 (length else)))
+    (seq-doseq (error else)
+      (should (plz-error-p error))
+      (should (null (plz-error-message error)))
+      (should (null (plz-error-response error)))
+      (equal '(6 . "Couldn't resolve host. The given remote host was not 
resolved.")
+             (plz-error-curl-error error)))))
+
+(ert-deftest plz-media-type-request-resolve-error-sync ()
+  (let* ((result (condition-case error
+                     (plz-media-type-request 'get 
"https://httpbinnnnnn.org/get/status/404";
+                       :as `(media-types ,plz-media-types))
+                   (plz-error error))))
+    (should (equal 'plz-curl-error (car result)))
+    (should (equal "Curl error" (cadr result)))
+    (let ((error (caddr result)))
+      (should (plz-error-p error))
+      (should (null (plz-error-message error)))
+      (should (null (plz-error-response error)))
+      (equal '(6 . "Couldn't resolve host. The given remote host was not 
resolved.")
+             (plz-error-curl-error error)))))
+
 ;;;; Footer
 
 (provide 'test-plz-media-type)