diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/thread-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el index a87eb3e1591..109e71128ab 100644 --- a/test/src/thread-tests.el +++ b/test/src/thread-tests.el | |||
| @@ -116,7 +116,7 @@ | |||
| 116 | :tags '(:unstable) | 116 | :tags '(:unstable) |
| 117 | (skip-unless (featurep 'threads)) | 117 | (skip-unless (featurep 'threads)) |
| 118 | (let ((thread (make-thread #'threads-call-error))) | 118 | (let ((thread (make-thread #'threads-call-error))) |
| 119 | (while (thread-alive-p thread) | 119 | (while (thread-live-p thread) |
| 120 | (thread-yield)) | 120 | (thread-yield)) |
| 121 | (should-error (thread-join thread)))) | 121 | (should-error (thread-join thread)))) |
| 122 | 122 | ||
| @@ -332,7 +332,7 @@ | |||
| 332 | (erase-buffer)) | 332 | (erase-buffer)) |
| 333 | (let ((thread | 333 | (let ((thread |
| 334 | (make-thread #'(lambda () (thread-signal main-thread 'error nil))))) | 334 | (make-thread #'(lambda () (thread-signal main-thread 'error nil))))) |
| 335 | (while (thread-alive-p thread) | 335 | (while (thread-live-p thread) |
| 336 | (thread-yield)) | 336 | (thread-yield)) |
| 337 | (read-event nil nil 0.1) | 337 | (read-event nil nil 0.1) |
| 338 | ;; No error has been raised, which is part of the test. | 338 | ;; No error has been raised, which is part of the test. |