diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/thread-tests.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el index 4e7b052cba0..7261cda9fbb 100644 --- a/test/src/thread-tests.el +++ b/test/src/thread-tests.el | |||
| @@ -221,8 +221,18 @@ | |||
| 221 | :group 'widget-faces)) | 221 | :group 'widget-faces)) |
| 222 | 222 | ||
| 223 | (ert-deftest thread-errors () | 223 | (ert-deftest thread-errors () |
| 224 | "Test what happens when a thread signals an error." | 224 | "Test what happens when a thread signals an error." |
| 225 | (should (threadp (make-thread #'call-error "call-error"))) | 225 | (should (threadp (make-thread #'call-error "call-error"))) |
| 226 | (should (threadp (make-thread #'thread-custom "thread-custom")))) | 226 | (should (threadp (make-thread #'thread-custom "thread-custom")))) |
| 227 | 227 | ||
| 228 | (ert-deftest thread-sticky-point () | ||
| 229 | "Test bug #25165 with point movement in cloned buffer." | ||
| 230 | (with-temp-buffer | ||
| 231 | (insert "Lorem ipsum dolor sit amet, consectetur adipiscing elit.") | ||
| 232 | (goto-char (point-min)) | ||
| 233 | (clone-indirect-buffer nil nil) | ||
| 234 | (forward-char 20) | ||
| 235 | (sit-for 1) | ||
| 236 | (should (= (point) 21)))) | ||
| 237 | |||
| 228 | ;;; threads.el ends here | 238 | ;;; threads.el ends here |