diff options
Diffstat (limited to 'test/src/thread-tests.el')
| -rw-r--r-- | test/src/thread-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el index 7261cda9fbb..26c0b725ff8 100644 --- a/test/src/thread-tests.el +++ b/test/src/thread-tests.el @@ -235,4 +235,13 @@ (sit-for 1) (should (= (point) 21)))) +(ert-deftest thread-signal-early () + "Test signaling a thread as soon as it is started by the OS." + (let ((thread + (make-thread #'(lambda () + (while t (thread-yield)))))) + (thread-signal thread 'error nil) + (sit-for 1) + (should-not (thread-alive-p thread)))) + ;;; threads.el ends here |