branch: externals/hyperbole
commit 6b93a58fc6ab277947cb3f1686872118dfc7a9ff
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>

    Verify creating a file for WikiWord highlights WikiWord (#744)
---
 ChangeLog               |  6 ++++++
 test/hy-test-helpers.el |  3 ++-
 test/hywiki-tests.el    | 21 ++++++++++++++++++++-
 3 files changed, 28 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 140361a83e..49c8096d08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2025-06-24  Mats Lidell  <ma...@gnu.org>
+
+* test/hywiki-tests.el 
(hywiki-tests--create-wikiword-file-highlights-wikiword):
+    Verify creating a file for WikiWord highlights the instances of
+    WikiWord that already is present in other files.
+
 2025-06-22  Bob Weiner  <r...@gnu.org>
 
 * hproperty.el (hproperty:but-get-first-in-region): Change from returning a 
list
diff --git a/test/hy-test-helpers.el b/test/hy-test-helpers.el
index 5d0b78819a..738e3aa34d 100644
--- a/test/hy-test-helpers.el
+++ b/test/hy-test-helpers.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <ma...@gnu.org>
 ;;
 ;; Orig-Date:    30-Jan-21 at 12:00:00
-;; Last-Mod:      1-Jun-25 at 23:22:27 by Mats Lidell
+;; Last-Mod:     24-Jun-25 at 10:21:13 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -20,6 +20,7 @@
 
 (require 'ert)
 (require 'hmouse-drv)                   ; For `action-key'
+(require 'hywiki)                       ; For `hywiki-word-face-at-p'
 (eval-when-compile (require 'cl-lib))
 
 (defun hy-test-helpers:consume-input-events ()
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index c756427c13..56f4527bc0 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell
 ;;
 ;; Orig-Date:    18-May-24 at 23:59:48
-;; Last-Mod:     22-Jun-25 at 22:32:29 by Bob Weiner
+;; Last-Mod:     24-Jun-25 at 09:36:49 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1672,6 +1672,25 @@ Insert test in the middle of other text."
         (hy-delete-files-and-buffers (list wikiHi wikiHo))
         (hy-delete-dir-and-buffer hywiki-directory)))))
 
+(ert-deftest hywiki-tests--create-wikiword-file-highlights-wikiword ()
+  "Verify creating a WikiWord-file highlights the WikiWord in another file."
+  (hywiki-tests--preserve-hywiki-mode
+    (let* ((hywiki-directory (make-temp-file "hywiki" t))
+           (wikiHi (cdr (hywiki-add-page "Hi")))
+           (hywiki-tests--with-face-test t)
+           wikiHo)
+      (unwind-protect
+          (progn
+            (hywiki-mode 1)
+            (with-current-buffer (find-file wikiHi)
+              (insert "Ho")
+              (save-buffer)
+              (setq wikiHo (cdr (hywiki-add-page "Ho")))
+              (goto-char 2)
+              (hywiki-tests--verify-hywiki-word "Ho")))
+        (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

Reply via email to