mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Work on proced-tests.el

Browse Source 
* test/lisp/proced-tests.el
(proced--assert-process-valid-cpu-refinement-explainer): New function
for explaining refinement test failures in greater detail.
This commit is contained in:
Laurence Warne 2024-10-30 15:12:13 +01:00 committed by Michael Albinus
parent 8a4d13e370
commit 98796f95fa
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,7 +50,24 @@
(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")
(should (>= (thing-at-point 'number) cpu)))
(>= (thing-at-point 'number) cpu))
(defun proced--assert-process-valid-cpu-refinement-explainer (cpu)
"Explain the result of `proced--assert-process-valid-cpu-refinement'.
CPU is as in `proced--assert-process-valid-cpu-refinement'."
`(unexpected-refinement
(header-line
,(substring-no-properties
(string-replace "%%" "%" (cadr (proced-header-line)))))
(process ,(thing-at-point 'line t))
(refined-value ,cpu)
(process-value
,(save-excursion
(proced--move-to-column "%CPU") (thing-at-point 'number)))))
(put #'proced--assert-process-valid-cpu-refinement 'ert-explainer
#'proced--assert-process-valid-cpu-refinement-explainer)
(ert-deftest proced-format-test ()
(dolist (format '(short medium long verbose))
@ -90,7 +107,7 @@
(let ((cpu (thing-at-point 'number)))
(proced-refine)
(while (not (eobp))
(proced--assert-process-valid-cpu-refinement cpu)
(should (proced--assert-process-valid-cpu-refinement cpu))
(forward-line)))))
(ert-deftest proced-refine-with-update-test ()
@ -106,7 +123,7 @@
;; processes again, causing the test to fail.
(proced-update)
(while (not (eobp))
(proced--assert-process-valid-cpu-refinement cpu)
(should (proced--assert-process-valid-cpu-refinement cpu))
(forward-line)))))
(ert-deftest proced-update-preserves-pid-at-point-test ()