branch: externals/hyperbole
commit 6fb121ec7367bea98cc4fe7bc311433a27b5754e
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Add test - filename same as WikiWord. (#709)
---
ChangeLog | 5 +++++
test/hywiki-tests.el | 22 ++++++++++++++++++++++
2 files changed, 27 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index ff85eac283..afb82c4356 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2025-04-20 Mats Lidell <ma...@gnu.org>
+
+* test/hywiki-tests.el (hywiki-tests--filename-same-as-wiki-word): Add
+ test for filename being the same as a WikiWord.
+
2025-04-20 Bob Weiner <r...@gnu.org>
* test/hui-tests.el (hui--link-possible-types): Change Outline Heading
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 4efdaafb8f..9edb4265e2 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -1460,6 +1460,28 @@ Insert test in the middle of other text."
(should (search-forward v))
(should (string= v (hywiki-word-at)))))))))
+(ert-deftest hywiki-tests--filename-same-as-wiki-word ()
+ "Regular files should not be WikiWords even when hywiki-mode is active."
+ (hywiki-tests--preserve-hywiki-mode
+ (let* ((hywiki-directory (make-temp-file "hywiki" t))
+ (wiki-page (cdr (hywiki-add-page "DEMO")))
+ (default-directory hyperb:dir))
+ (unwind-protect
+ (with-temp-buffer
+ (insert "\"DEMO\" \"DEMO.org\"\n")
+ (goto-char 2)
+ (should (looking-at-p "DEMO\" "))
+ (hywiki-mode 0)
+ (should (string= "ibtypes::pathname" (hattr:get (ibut:at-p)
'categ)))
+ (hywiki-mode 1)
+ (should (string= "ibtypes::pathname" (hattr:get (ibut:at-p)
'categ)))
+ (goto-char 9)
+ ;; Verify that using the org extension selects the WikiWord.
+ (should (looking-at-p "DEMO\\.org\""))
+ (should (string= "ibtypes::hywiki-existing-word" (hattr:get
(ibut:at-p) 'categ))))
+ (hy-delete-file-and-buffer wiki-page)
+ (hy-delete-dir-and-buffer hywiki-directory)))))
+
(provide 'hywiki-tests)
;; This file can't be byte-compiled without the `el-mock' package
