martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Instrument proced-tests.el further

Browse Source 
* test/lisp/proced-tests.el
(proced--assert-process-valid-cpu-refinement): Explain also Lisp errors.
This commit is contained in:
Michael Albinus
2024-11-04 14:24:21 +01:00
parent 03fa832b4d
commit 37b1799c9e
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/lisp/proced-tests.el
View File

@@ -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'.