branch: externals/hyperbole
commit 7d05492e1b70df006c84b9ef64f4d77c43ddec88
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Add variation to WikiWord splitting (#710)
---
ChangeLog | 3 +++
test/hywiki-tests.el | 9 ++++++++-
2 files changed, 11 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index bd0698c5e2..e2c20fe292 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2025-04-21 Mats Lidell <ma...@gnu.org>
+* test/hywiki-tests.el (hywiki-tests--wikiword-step-check): Update test
+ sequence.
+
* hywiki.el (ibtypes::pathname, ibtypes::pathname-line-and-column):
Declare functions from hpath.
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 9edb4265e2..000cbaae0a 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -1339,9 +1339,16 @@ the function is called."
(("(HiHo#s" . "HiHo#s") (" " . "HiHo#s"))
(("(HiHo#s" . "HiHo#s") (")" . "HiHo#s")) ; Delimiter part of WikiWord.
See below too.
(("(HiHo#s" . "HiHo#s") ("-" . "HiHo#s-") ("n" . "HiHo#s-n") (")" .
"HiHo#s-n"))
- ;; Insert and delete between WikiWords
+ ;; Insert and delete between WikiWords and non WikiWords
(("HiHo" . t) (p3 . t) (" " . "Hi") (p4 . "Ho") (-1 . "HiHo"))
(("Hiho" . t) (p3 . t) (" " . "Hi") (p4) (-1 . "Hiho"))
+ (("hiHo") (p3) (" ") (p4 . "Ho") (-1))
+ ;; With double quotes
+ (("\"HiHo\"" . t) (p4 . t) (" " . "Hi") (p5 . "Ho") (-1 . "HiHo"))
+ (("\"Hiho\"" . t) (p4 . t) (" " . "Hi") (p5) (-1 . "Hiho"))
+ (("\"hiHo\"") (p4) (" ") (p5 . "Ho") (-1))
+ (("\"Hi\"Ho" . t) (p5 . "Ho") (" " . "Ho") (p4 . "Hi"))
+ (("Hi\"Ho\"" . t) (p3 . "Hi") (" " . "Hi") (p4) (p5 . "Ho"))
)
"List of test cases for WikiWords.")
