mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues 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) (defun proced--assert-process-valid-cpu-refinement (cpu)
"Fail unless the process at point could be present after a refinement using CPU." "Fail unless the process at point could be present after a refinement using CPU."
(proced--move-to-column "%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) (defun proced--assert-process-valid-cpu-refinement-explainer (cpu)
"Explain the result of `proced--assert-process-valid-cpu-refinement'. "Explain the result of `proced--assert-process-valid-cpu-refinement'.