diff options
Diffstat (limited to 'test/src/thread-tests.el')
| -rw-r--r-- | test/src/thread-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el index f14d2426ef0..0e1ca76fd9c 100644 --- a/test/src/thread-tests.el +++ b/test/src/thread-tests.el | |||
| @@ -315,8 +315,8 @@ | |||
| 315 | "Test signaling a thread as soon as it is started by the OS." | 315 | "Test signaling a thread as soon as it is started by the OS." |
| 316 | (skip-unless (featurep 'threads)) | 316 | (skip-unless (featurep 'threads)) |
| 317 | (let ((thread | 317 | (let ((thread |
| 318 | (make-thread #'(lambda () | 318 | (make-thread (lambda () |
| 319 | (while t (thread-yield)))))) | 319 | (while t (thread-yield)))))) |
| 320 | (thread-signal thread 'error nil) | 320 | (thread-signal thread 'error nil) |
| 321 | (sit-for 1) | 321 | (sit-for 1) |
| 322 | (should-not (thread-live-p thread)) | 322 | (should-not (thread-live-p thread)) |
| @@ -331,7 +331,7 @@ | |||
| 331 | (let (buffer-read-only) | 331 | (let (buffer-read-only) |
| 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-live-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) |