From 76a104dd87252f8b1107fe3fc1d3eb5ae45bcc55 Mon Sep 17 00:00:00 2001
From: Tom Dalziel <tom_dl@hotmail.com>
Date: Mon, 18 Apr 2022 11:19:02 +0100
Subject: Add tests for blockwise visual paste

---
 evil-tests.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/evil-tests.el b/evil-tests.el
index 65fd8f4..ad47b5d 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -2926,7 +2926,19 @@ word3[]"))
     (evil-test-buffer
      "foo"
      ("viw" "\"=p(* 6 7)" [return])
-     "4[2]")))
+     "4[2]"))
+  (ert-info ("Blockwise visual paste (of charwise text) with count")
+    (evil-test-buffer
+      "[a]bc\n123\n123\n123"
+      ("ye" "jl" "\C-vG" "2p")
+      "abc\n1[a]bcabc3\n1abcabc3\n1abcabc3"
+      ("gv") ;; Test point & mark are stored correctly
+      "abc\n1<abcabc3\n1abcabc3\n1abcab[c]>3"))
+  (ert-info ("Blockwise visual paste of linewise text")
+    (evil-test-buffer
+      "[a]bc\n123\n123\n123"
+      ("yy" "jl" "\C-vG" "p")
+      "abc\n1\nabc\n3\n1\nabc\n3\n1\nabc\n3")))
 
 (ert-deftest evil-test-visual-paste-pop ()
   "Test `evil-paste-pop' after visual paste."
-- 
cgit v1.0