From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 18 Aug 2021 13:32:19 +0000 (+0200)
Subject: Add undo-in-region test case for bug#21523
X-Git-Tag: emacs-28.0.90~1452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a1d713c19147a0eeb4829a8d3815e3292cbf1f3;p=emacs.git

Add undo-in-region test case for bug#21523
---

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