diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el index d69414cf43a..d53f25b00d8 100644 --- a/test/lisp/proced-tests.el +++ b/test/lisp/proced-tests.el @@ -89,14 +89,17 @@ (forward-line))))) (ert-deftest proced-refine-with-update-test () - :tags '(:unstable) ; There seems to be an update race here. (proced--within-buffer 'medium 'user (proced--move-to-column "PID") (let ((pid (word-at-point))) (proced-refine) - (proced-update t) + ;; Don't use (proced-update t) since this will reset `proced-process-alist' + ;; and it's possible the process refined on would have exited by that + ;; point. In this case proced will skip the refinement and show all + ;; processes again, causing the test to fail. + (proced-update) (while (not (eobp)) (proced--move-to-column "PID") (should (string= pid (word-at-point)))