Commit 39dbd1cd authored by Phillip Lord's avatar Phillip Lord

: Tests for undo-auto functionality.

parent 20aa42e8
......@@ -202,5 +202,38 @@
(unless (or noninteractive python)
(unload-feature 'python)))))
;;; auto-boundary tests
(ert-deftest undo-auto--boundary-timer ()
(should
undo-auto--current-boundary-timer))
(ert-deftest undo-auto--boundaries-added ()
;; The change in the buffer should have caused addition
;; to undo-auto--undoably-changed-buffers.
(should
(with-temp-buffer
(setq buffer-undo-list nil)
(insert "hello")
(member (current-buffer) undo-auto--undoably-changed-buffers)))
;; The head of buffer-undo-list should be the insertion event, and
;; therefore not nil
(should
(with-temp-buffer
(setq buffer-undo-list nil)
(insert "hello")
(car buffer-undo-list)))
;; Now the head of the buffer-undo-list should be a boundary and so
;; nil. We have to call auto-boundary explicitly because we are out
;; of the command loop
(should-not
(with-temp-buffer
(setq buffer-undo-list nil)
(insert "hello")
(car buffer-undo-list)
(undo-auto--boundaries 'test))))
(provide 'simple-test)
;;; simple-test.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment