From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 4 Nov 2024 13:24:21 +0000 (+0100)
Subject: ; Instrument proced-tests.el further
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~295
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=37b1799c9e5677db35ac509729a29fb7cd44cf39;p=emacs.git

; Instrument proced-tests.el further

* test/lisp/proced-tests.el
(proced--assert-process-valid-cpu-refinement): Explain also Lisp errors.
---

diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el
index 9036c15271c..3dc7e065afa 100644
--- a/test/lisp/proced-tests.el
+++ b/test/lisp/proced-tests.el
@@ -50,7 +50,11 @@
 (defun proced--assert-process-valid-cpu-refinement (cpu)
   "Fail unless the process at point could be present after a refinement using CPU."
   (proced--move-to-column "%CPU")
-  (>= (thing-at-point 'number) cpu))
+  (condition-case err
+      (>= (thing-at-point 'number) cpu)
+    (error
+     (ert-fail
+      (list err (proced--assert-process-valid-cpu-refinement-explainer cpu))))))
 
 (defun proced--assert-process-valid-cpu-refinement-explainer (cpu)
   "Explain the result of `proced--assert-process-valid-cpu-refinement'.