branch: externals/hyperbole
commit e2158f3670832adeca3667377ccad32717425897
Author: Mats Lidell <[email protected]>
Commit: GitHub <[email protected]>

    Activate all checks and mark test case as expected to fail (#815)
---
 ChangeLog            |  3 +++
 test/hywiki-tests.el | 15 +++++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cac4135a37..b20b99ac6f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2025-11-17  Mats Lidell  <[email protected]>
 
+* test/hywiki-tests.el (hywiki-tests--maybe-highlight-page-names): Add
+    test cases that fail and mark test as expected-result failed.
+
 * test/hpath-tests.el
     (hpath:path-at-point-with-unbalanced-quote-on-same-line):
     Rename test. Track current behavior.
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index eba21113a3..5c84525700 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -2049,7 +2049,11 @@ face is verified during the change."
         (hywiki-tests--delete-hywiki-dir-and-buffer hywiki-directory)))))
 
 (ert-deftest hywiki-tests--maybe-highlight-page-names ()
-  "Verify `hywiki-maybe-highlight-page-names'."
+  "Verify `hywiki-maybe-highlight-page-names'.
+Start and stop point of all highlighted regions in the buffer, as
+computed by `hywiki-tests--hywiki-face-regions', are compared to the
+expected result."
+  :expected-result :failed
   (hywiki-tests--preserve-hywiki-mode
     (let* ((hywiki-directory (make-temp-file "hywiki_" t))
           (wikiword (cdr (hywiki-add-page "WiWo"))))
@@ -2062,11 +2066,10 @@ face is verified during the change."
                          ("WiWo text WiWo" . ((1 . 5) (11 . 15)))
                          ("\"WiWo\"" . ((2 . 6)))
                          ("\"WiWo text\"" . ((2 . 6)))
-                         ;; FIXME: Failing tests below.
-                         ;; ("\"WiWo WiWo\"" . ((2 . 6) (7 . 11)))
-                         ;; ("\"WiWo text WiWo\"" . ((2 . 6) (12 . 16)))
-                         ;; ("\"WiWo WiWo WiWo\"" . ((2 . 6) (7 . 11) (12 . 
16)))
-                         ))
+                         ;; Failing tests below.
+                         ("\"WiWo WiWo\"" . ((2 . 6) (7 . 11)))
+                         ("\"WiWo text WiWo\"" . ((2 . 6) (12 . 16)))
+                         ("\"WiWo WiWo WiWo\"" . ((2 . 6) (7 . 11) (12 . 
16)))))
               (let ((input (car v))
                     (overlay-regions (cdr v)))
                (with-temp-buffer

Reply via email to