; 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 9036c15271cda40fdbce5fd0724855efbf8de552..3dc7e065afaf0325d715adff6a1b0438db6c995b 100644 (file)
--- 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'.