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