Add test for the fix in the parent commit

* test/src/undo-tests.el (undo-test-skip-invalidated-markers):
New test, for the fix in the parent commit.
This commit is contained in:
Dmitry Gutov 2017-06-17 03:54:06 +03:00
parent e17d6e2f6f
commit 32b0f15365

View file

@ -444,5 +444,27 @@ Demonstrates bug 16818."
(ert-run-tests-interactively "^undo-")
(ert-run-tests-batch "^undo-")))
(ert-deftest undo-test-skip-invalidated-markers ()
"Test marker adjustment when the marker points nowhere.
Demonstrates bug 25599."
(with-temp-buffer
(buffer-enable-undo)
(insert ";; aaaaaaaaa
;; bbbbbbbb")
(let ((overlay-modified
(lambda (ov after-p _beg _end &optional length)
(unless after-p
(when (overlay-buffer ov)
(delete-overlay ov))))))
(save-excursion
(goto-char (point-min))
(let ((ov (make-overlay (line-beginning-position 2)
(line-end-position 2))))
(overlay-put ov 'insert-in-front-hooks
(list overlay-modified)))))
(kill-region (point-min) (line-beginning-position 2))
(undo-boundary)
(undo)))
(provide 'undo-tests)
;;; undo-tests.el ends here