[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3a1d713: Add undo-in-region test case for bug#21523
From: |
Lars Ingebrigtsen |
Subject: |
master 3a1d713: Add undo-in-region test case for bug#21523 |
Date: |
Wed, 18 Aug 2021 09:32:27 -0400 (EDT) |
branch: master
commit 3a1d713c19147a0eeb4829a8d3815e3292cbf1f3
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 4b153d1..7289112 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3a1d713: Add undo-in-region test case for bug#21523,
Lars Ingebrigtsen <=