emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/iedit a5d117a75a 122/301: add test-case for deleting char


From: ELPA Syncer
Subject: [nongnu] elpa/iedit a5d117a75a 122/301: add test-case for deleting char at end of overlay with mirror at EOB
Date: Mon, 10 Jan 2022 22:58:56 -0500 (EST)

branch: elpa/iedit
commit a5d117a75ad821683475093396e47c83f04d3afa
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    add test-case for deleting char at end of overlay with mirror at EOB
---
 iedit-tests.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/iedit-tests.el b/iedit-tests.el
index 06d5fc90c1..d5f05f9e4e 100644
--- a/iedit-tests.el
+++ b/iedit-tests.el
@@ -128,6 +128,25 @@ foo"
  123foo456123foo456
  123foo456")))))
 
+(ert-deftest iedit-overlay-at-end-of-buffer ()
+  (with-iedit-test-fixture
+   "foo
+foo"
+   (lambda ()
+     (iedit-mode)
+     (highlight-changes-mode 1)
+     (goto-char (point-min))
+     (goto-char (point-at-eol))
+     (iedit-mode)
+     (delete-region (point) (1- (point)))
+     (should (string= (buffer-string)
+                      "fo
+fo"))
+     (insert "b")
+     (should (string= (buffer-string)
+                      "fob
+fob")))))
+
 (ert-deftest iedit-mode-start-from-isearch-test ()
   (with-iedit-test-fixture
 "foo



reply via email to

[Prev in Thread] Current Thread [Next in Thread]