]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix unstable proced test
authorLaurence Warne <laurencewarne@gmail.com>
Sun, 21 May 2023 17:59:43 +0000 (18:59 +0100)
committerMattias EngdegÄrd <mattiase@acm.org>
Sun, 28 May 2023 11:35:25 +0000 (13:35 +0200)
Fix unstable proced test by omitting the revert parameter in
'proced-update'.  This was caused by the process being refined on
exiting between the initial 'proced' call and the successive
'proced-update' call.  This resulted in proced skipping the refinement
in 'proced-update', causing all processes to be shown again and the
test to fail.

* test/lisp/proced-tests.el (proced-refine-with-update-test): Do not
use revert parameter when calling 'proced-update'.

test/lisp/proced-tests.el

index d69414cf43ada0794f0ea0e9eb8354b9fe71f060..d53f25b00d89db34290dda466521b00aeb3c39c3 100644 (file)
        (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)))