From: Philipp Stephani <phst@google.com>
Date: Sun, 24 Jan 2021 12:56:18 +0000 (+0100)
Subject: Add more assertions to recently-added process test.
X-Git-Tag: emacs-28.0.90~4127
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4dd12d3589559e61cdce978c40e1eb86a871266;p=emacs.git

Add more assertions to recently-added process test.

* test/src/process-tests.el (process-tests/multiple-threads-waiting):
Also check that 'thread-join' and 'thread-last-error' return the
expected errors.
---

diff --git a/test/src/process-tests.el b/test/src/process-tests.el
index 676e1b1ac32..a3fba8d328b 100644
--- a/test/src/process-tests.el
+++ b/test/src/process-tests.el
@@ -814,7 +814,8 @@ have written output."
         (cl-loop for process in processes
                  and thread in threads
                  do
-                 (thread-join thread)
+                 (should-not (thread-join thread))
+                 (should-not (thread-last-error))
                  (should (eq (process-status process) 'exit))
                  (should (eql (process-exit-status process) 0)))))))