procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better NaN handling in proced-tests.el

Browse source 
* test/lisp/proced-tests.el (proced--cpu-at-point): Make it more robust.
(proced--assert-process-valid-cpu-refinement):
Handle `ert-test-skipped' signal.
This commit is contained in:
Michael Albinus 2025-02-03 12:51:48 +01:00
parent a7f34a532c
commit fbc13ba9cc
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/proced-tests.el
View file

@ -38,10 +38,10 @@
(defun proced--cpu-at-point ()
"Return as an integer the current CPU value at point."
(if (string-suffix-p "nan" (thing-at-point 'sexp))
(let ((pid (proced-pid-at-point)))
(ert-skip
(format
"Found NaN value for %%CPU at point for process with PID %d" pid)))
(ert-skip
(format
"Found NaN value for %%CPU at point for process with PID %s"
(substring-no-properties (thing-at-point 'sexp))))
(thing-at-point 'number)))
(defun proced--assert-emacs-pid-in-buffer ()
@ -61,6 +61,7 @@
(proced--move-to-column "%CPU")
(condition-case err
(>= (proced--cpu-at-point) cpu)
(ert-test-skipped (signal (car err) (cdr err)))
(error
(ert-fail
(list err (proced--assert-process-valid-cpu-refinement-explainer cpu))))))