WiPscratch/error-API

8 files changed, 12 insertions, 13 deletions

diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el
index 43a441918a5..235a67c8649 100644
--- a/test/lisp/arc-mode-tests.el
+++ b/test/lisp/arc-mode-tests.el
@@ -113,9 +113,10 @@ member MEMBER.  Then the test finds ARCHIVE and ensures that function
                                ;; turn the most likely error into a nice
                                ;; and self-explaining symbol that can be
                                ;; compared in a `should'
-                               (if (string= (cadr err) "Buffer format not recognized")
+                               (if (equal (error-slot-value err 1)
+                                          "Buffer format not recognized")
                                    'signature-not-recognized
-                                 (signal (car err) (cdr err))))))
+                                 (signal err)))))
                  (should (eq type (quote ,type)))))
            (when buffer (kill-buffer buffer))
            (dolist (file (list member archive))
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index 8a0ce146fbb..a43a45fa0ee 100644
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -203,7 +203,7 @@ It is checked for buffer-local `auto-revert-notify-watch-descriptor'."
         (tramp-dissect-file-name auto-revert--test-rootdir) t 'keep-password)
        (condition-case err
            (funcall (ert-test-body ert-test))
-         (error (message "%s" err) (signal (car err) (cdr err)))))))
+         (error (message "%s" err) (signal err))))))
 
 (defmacro with-auto-revert-test (&rest body)
   (declare (debug t))
diff --git a/test/lisp/emacs-lisp/edebug-tests.el b/test/lisp/emacs-lisp/edebug-tests.el
index c93dfad0a0d..61e909437c7 100644
--- a/test/lisp/emacs-lisp/edebug-tests.el
+++ b/test/lisp/emacs-lisp/edebug-tests.el
@@ -120,8 +120,7 @@ back to the top level.")
                 (eval-buffer)
                 ,@body
                 (when edebug-tests-failure-in-post-command
-                  (signal (car edebug-tests-failure-in-post-command)
-                          (cdr edebug-tests-failure-in-post-command))))
+                  (signal edebug-tests-failure-in-post-command)))
             (unload-feature 'edebug-test-code)
             (with-current-buffer (find-file-noselect edebug-tests-temp-file)
               (set-buffer-modified-p nil))
@@ -246,7 +245,7 @@ keyboard macro."
             (funcall thunk)
           (error
            (setq edebug-tests-failure-in-post-command err)
-           (signal (car err) (cdr err)))))
+           (signal err))))
       (setq edebug-tests-kbd-macro-index executing-kbd-macro-index))))
 
 (defvar edebug-tests-func nil
diff --git a/test/lisp/emacs-lisp/pp-tests.el b/test/lisp/emacs-lisp/pp-tests.el
index ed4c9fcf978..c4e93e16005 100644
--- a/test/lisp/emacs-lisp/pp-tests.el
+++ b/test/lisp/emacs-lisp/pp-tests.el
@@ -82,7 +82,7 @@
             (invalid-read-syntax
              (message "Invalid fill result with i=%d:\n%s"
                       i (buffer-string))
-             (signal (car err) (cdr err))
+             (signal err)
              ))))))))
 
 (ert-deftest pp-tests--bug76715 ()
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 28d773ca616..265821ed439 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -192,7 +192,7 @@ The temporary file is not created."
                           (: "Making symbolic link"
                              (? ":") " Operation not permitted")))
                (error-message-string err))
-        (signal (car err) (cdr err))))))
+        (signal err)))))
 
 ;; Don't print messages in nested `tramp--test-instrument-test-case' calls.
 (defvar tramp--test-instrument-test-case-p nil
@@ -4290,7 +4290,7 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
      (file-error
       (unless (string-prefix-p "error with add-name-to-file"
                                (error-message-string err))
-        (signal (car err) (cdr err))))))
+        (signal err)))))
 
 (ert-deftest tramp-test21-file-links ()
   "Check `file-symlink-p'.
diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el
index fce3c2bc048..52d1e8850ca 100644
--- a/test/lisp/proced-tests.el
+++ b/test/lisp/proced-tests.el
@@ -61,7 +61,7 @@
   (proced--move-to-column "%CPU")
   (condition-case err
       (>= (proced--cpu-at-point) cpu)
-    (ert-test-skipped (signal (car err) (cdr err)))
+    (ert-test-skipped (signal err))
     (error
      (ert-fail
       (list err (proced--assert-process-valid-cpu-refinement-explainer cpu))))))
diff --git a/test/lisp/vc/vc-git-tests.el b/test/lisp/vc/vc-git-tests.el
index e93ee72210d..96fa3d65c05 100644
--- a/test/lisp/vc/vc-git-tests.el
+++ b/test/lisp/vc/vc-git-tests.el
@@ -111,7 +111,7 @@ If the exit status is non-zero, log the command output and re-throw."
         (apply 'vc-git-command t 0 nil args)
       (t (message "Error running Git: %s" err)
          (message "(buffer-string:\n%s\n)" (buffer-string))
-         (signal (car err) (cdr err))))
+         (signal err)))
     (buffer-string)))
 
 (defun vc-git-test--start-branch ()
diff --git a/test/lisp/vc/vc-tests/vc-tests.el b/test/lisp/vc/vc-tests/vc-tests.el
index ca79a340a46..737ee09415e 100644
--- a/test/lisp/vc/vc-tests/vc-tests.el
+++ b/test/lisp/vc/vc-tests/vc-tests.el
@@ -238,8 +238,7 @@ For backends which don't support it, `vc-not-supported' is signaled."
 Catch the `vc-not-supported' error."
   `(condition-case err
        (funcall ,func ,@args)
-     (vc-not-supported 'vc-not-supported)
-     (t (signal (car err) (cdr err)))))
+     (vc-not-supported 'vc-not-supported)))
 
 (defun vc-test--register (backend)
   "Register and unregister a file.