; Instrument proced-tests.el further

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

(cherry picked from commit 37b1799c9e5677db35ac509729a29fb7cd44cf39)

diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el
index 5d6f9e9f16473539ebd6cc646e792e3f57a37cd8..5c9dfaca109b8f78f9dfadf8c5aa2846327574a0 100644 (file)
--- a/test/lisp/proced-tests.el
+++ b/test/lisp/proced-tests.el
@@ -52,7 +52,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'.