[elpa] externals/plz 4735c8333d 17/40: Fix: (plz) Signal error with data as list

[ELPA Syncer]

branch: externals/plz
commit 4735c8333de002d1ee588a1c3140947bd55715c1
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (plz) Signal error with data as list
---
 plz.el            | 2 +-
 tests/test-plz.el | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/plz.el b/plz.el
index 91736d4cca..27107978d3 100644
--- a/plz.el
+++ b/plz.el
@@ -524,7 +524,7 @@ NOQUERY is passed to `make-process', which see."
                      ;; The AS function signaled an error, which was collected
                      ;; into a `plz-error' struct: re-signal the error here,
                      ;; outside of the sentinel.
-                     (signal 'plz-error data))
+                     (signal 'plz-error (list data)))
                     (else
                      ;; The AS function returned a value: return it.
                      else)))
diff --git a/tests/test-plz.el b/tests/test-plz.el
index c08715907b..201faf3385 100644
--- a/tests/test-plz.el
+++ b/tests/test-plz.el
@@ -423,7 +423,7 @@ Also, any instance of \"URI-PREFIX\" in URL-PART is 
replaced with
 
 (plz-deftest plz-get-curl-error-sync nil
   ;; Sync.
-  (pcase-let ((`(,_signal . (,_message ,data))
+  (pcase-let ((`(,_signal . (,data))
               (should-error (plz 'get "https://httpbinnnnnn.org/get/status/404";
                                :as 'string :then 'sync)
                              :type 'plz-error)))
@@ -432,7 +432,7 @@ Also, any instance of \"URI-PREFIX\" in URL-PART is 
replaced with
                    (plz-error-curl-error data)))))
 
 (plz-deftest plz-get-404-error-sync  nil
-  (pcase-let ((`(,_signal . (,_message ,data))
+  (pcase-let ((`(,_signal . (,data))
               (should-error (plz 'get (plz-test-url "/get/status/404")
                               :as 'string :then 'sync)
                              :type 'plz-error)))
@@ -453,7 +453,7 @@ Also, any instance of \"URI-PREFIX\" in URL-PART is 
replaced with
 
 (plz-deftest plz-get-timeout-error-sync nil
   (pcase-let* ((start-time (current-time))
-               (`(,_signal . (,_string ,(cl-struct plz-error (curl-error 
`(,code . ,message)))))
+               (`(,_signal . (,(cl-struct plz-error (curl-error `(,code . 
,message)))))
                (should-error (plz 'get (plz-test-url "/delay/5")
                                :as 'string :then 'sync :timeout 1)
                              :type 'plz-error))