masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
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) (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")
(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 () (ert-deftest proced-format-test ()
(dolist (format '(short medium long verbose)) (dolist (format '(short medium long verbose))
@ -90,7 +107,7 @@
(let ((cpu (thing-at-point 'number))) (let ((cpu (thing-at-point 'number)))
(proced-refine) (proced-refine)
(while (not (eobp)) (while (not (eobp))
(proced--assert-process-valid-cpu-refinement cpu) (should (proced--assert-process-valid-cpu-refinement cpu))
(forward-line))))) (forward-line)))))
(ert-deftest proced-refine-with-update-test () (ert-deftest proced-refine-with-update-test ()
@ -106,7 +123,7 @@
;; processes again, causing the test to fail. ;; processes again, causing the test to fail.
(proced-update) (proced-update)
(while (not (eobp)) (while (not (eobp))
(proced--assert-process-valid-cpu-refinement cpu) (should (proced--assert-process-valid-cpu-refinement cpu))
(forward-line))))) (forward-line)))))
(ert-deftest proced-update-preserves-pid-at-point-test () (ert-deftest proced-update-preserves-pid-at-point-test ()