From c0b3ee64448497cad58f3be71b41b1a297ed5ac2 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 4 Nov 2024 14:24:21 +0100 Subject: [PATCH] ; 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) --- test/lisp/proced-tests.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el index 5d6f9e9f164..5c9dfaca109 100644 --- 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'. -- 2.39.5