diff options
Diffstat (limited to 'test/src/thread-tests.el')
| -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 @@ :group 'widget-faces)) (ert-deftest thread-errors () - "Test what happens when a thread signals an error." + "Test what happens when a thread signals an error." (should (threadp (make-thread #'call-error "call-error"))) (should (threadp (make-thread #'thread-custom "thread-custom")))) +(ert-deftest thread-sticky-point () + "Test bug #25165 with point movement in cloned buffer." + (with-temp-buffer + (insert "Lorem ipsum dolor sit amet, consectetur adipiscing elit.") + (goto-char (point-min)) + (clone-indirect-buffer nil nil) + (forward-char 20) + (sit-for 1) + (should (= (point) 21)))) + ;;; threads.el ends here |