From 39dbd1cd0f6cc007722f1d120d3be219d1cb5963 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Thu, 12 Nov 2015 22:18:59 +0000 Subject: [PATCH] : Tests for undo-auto functionality. --- test/automated/simple-test.el | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) diff --git a/test/automated/simple-test.el b/test/automated/simple-test.el index 5bfb74615a4..86c9fc2e767 100644 --- a/test/automated/simple-test.el +++ b/test/automated/simple-test.el @@ -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 -- 2.39.2