branch: externals/hyperbole
commit db9f64b3489543b7d16ec930f69c9db34e5b70ae
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Add test for yanking in WikiWord (#742)
---
ChangeLog | 5 +++++
test/hywiki-tests.el | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 60 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 218879cbb7..098d7538dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2025-06-06 Mats Lidell <ma...@gnu.org>
+
+* test/hywiki-tests.el (hywiki-tests--wikiword-yanked-with-extra-words):
+ Failing test for yanked in WikiWord.
+
2025-06-05 Mats Lidell <ma...@gnu.org>
* test/hywiki-tests.el (hywiki-tests--hywiki-face-region-at): Get overlay
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 1a8ecb180d..09644e18e5 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -1606,6 +1606,61 @@ Insert test in the middle of other text."
(hy-delete-file-and-buffer wikiHi)
(hy-delete-dir-and-buffer hywiki-directory)))))
+(ert-deftest hywiki-tests--wikiword-yanked-with-extra-words ()
+ "Verify that a WikiWord that is yanked in highlights properly."
+ :expected-result :failed
+ (hywiki-tests--preserve-hywiki-mode
+ (let* ((hywiki-directory (make-temp-file "hywiki" t))
+ (wikiHi (cdr (hywiki-add-page "Hi")))
+ (wikiHo (cdr (hywiki-add-page "Ho")))
+ (hywiki-tests--with-face-test t))
+ (unwind-protect
+ (progn
+ (hywiki-mode 1)
+ ;; Non WikiWords in front of WikiWord.
+ (with-temp-buffer
+ (let ((kill-ring (list "a b Hi#c"))
+ interprogram-paste-function)
+ (yank))
+ (goto-char 1)
+ (hywiki-tests--verify-hywiki-word nil)
+ (goto-char 6)
+ (hywiki-tests--verify-hywiki-word "Hi#c"))
+ ;; Non WikiWords after WikiWord.
+ (with-temp-buffer
+ (let ((kill-ring (list "Hi#a b c"))
+ interprogram-paste-function)
+ (yank))
+ (goto-char 2)
+ (hywiki-tests--verify-hywiki-word "Hi#a"))
+ ;; Multiple WikiWords with non WikiWords.
+ (with-temp-buffer
+ (let ((kill-ring (list "a Hi#b c Ho#d e"))
+ interprogram-paste-function)
+ (yank))
+ (goto-char 4)
+ (hywiki-tests--verify-hywiki-word "Hi#b")
+ (goto-char 11)
+ (hywiki-tests--verify-hywiki-word "Ho#d"))
+ ;; Right part of WikiWord yanked in.
+ (with-temp-buffer
+ (insert "H")
+ (let ((kill-ring (list "i#s"))
+ interprogram-paste-function)
+ (yank))
+ (goto-char 2)
+ (hywiki-tests--verify-hywiki-word "Hi#s"))
+ ;; Left part of WikiWord yanked in.
+ (with-temp-buffer
+ (insert "i#s")
+ (goto-char 1)
+ (let ((kill-ring (list "H"))
+ interprogram-paste-function)
+ (yank))
+ (hywiki-tests--verify-hywiki-word "Hi#s")))
+ (hy-delete-files-and-buffers (list wikiHi wikiHo))
+ (hy-delete-dir-and-buffer hywiki-directory)))))
+
(provide 'hywiki-tests)
;; This file can't be byte-compiled without the `el-mock' package
