From 3a1d713c19147a0eeb4829a8d3815e3292cbf1f3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 18 Aug 2021 15:32:19 +0200 Subject: [PATCH] Add undo-in-region test case for bug#21523 --- test/lisp/simple-tests.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 4b153d117f0..728911208eb 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -959,6 +959,17 @@ See Bug#21722." (with-shell-command-dont-erase-buffer str output-buffer-is-current (should (= (point) (alist-get shell-command-dont-erase-buffer expected-point))))))) +(ert-deftest test-undo-region () + (with-temp-buffer + (insert "This is a test\n") + (goto-char (point-min)) + (setq buffer-undo-list nil) + (downcase-word 1) + (should (= (length (delq nil (undo-make-selective-list 1 9))) 2)) + (should (= (length (delq nil (undo-make-selective-list 4 9))) 1)) + ;; FIXME this is the off-by-one error case. + ;;(should (= (length (delq nil (undo-make-selective-list 5 9))) 0)) + (should (= (length (delq nil (undo-make-selective-list 6 9))) 0))) (provide 'simple-test) ;;; simple-test.el ends here -- 2.39.2