[elpa] externals/hyperbole dea72c9f45: Add test for ending a WikiWord with a space (#604)

[ELPA Syncer]

branch: externals/hyperbole
commit dea72c9f4511e926726bedc3a84b895972af8270
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Add test for ending a WikiWord with a space (#604)
    
    Keep failing test for ending WikiWord with a RET. Mark tests as
    expected fail since using RET as well as SPC should work!?
---
 test/hywiki-tests.el | 36 +++++++++++++++++++++++++++---------
 1 file changed, 27 insertions(+), 9 deletions(-)

diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 1248ce6ad3..7dbe68bc45 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:     10-Nov-24 at 23:05:28 by Mats Lidell
+;; Last-Mod:     11-Nov-24 at 22:53:15 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -299,6 +299,7 @@ Both mod-time and checksum must be changed for a test to 
return true."
 
 (ert-deftest hywiki-tests--face-property-for-wikiword-with-wikipage ()
   "Verify WikiWord for a wiki page gets face property hywiki-word-face."
+  :expected-result :failed
   (skip-unless (not noninteractive))
   (let* ((hsys-org-enable-smart-keys t)
          (hywiki-directory (make-temp-file "hywiki" t))
@@ -306,6 +307,11 @@ Both mod-time and checksum must be changed for a test to 
return true."
     (unwind-protect
         (progn
           (hywiki-tests--remove-hywiki-hooks)
+          (with-temp-buffer
+            (hywiki-mode 1)
+            (with-hywiki-buttonize-and-insert-hooks (insert "WikiWord "))
+            (goto-char 4)
+            (should (hproperty:but-get (point) 'face hywiki-word-face)))
           (with-temp-buffer
             (hywiki-mode 1)
             (with-hywiki-buttonize-and-insert-hooks
@@ -395,18 +401,30 @@ Both mod-time and checksum must be changed for a test to 
return true."
 
 (ert-deftest hywiki-tests--convert-words-to-org-link ()
   "Verify `hywiki-convert-words-to-org-links' converts WikiWords to org links."
+  :expected-result :failed
   (skip-unless (not noninteractive))
   (let* ((hywiki-directory (make-temp-file "hywiki" t))
          (wikipage (hywiki-add-page "WikiWord")))
     (unwind-protect
-        (with-temp-buffer
-          (hywiki-mode 1)
-          (insert "WikiWord")
-         (newline nil t)
-          (goto-char 4)
-          (hywiki-convert-words-to-org-links)
-          (should (string= "[[hy:WikiWord]]\n"
-                           (buffer-substring-no-properties (point-min) 
(point-max)))))
+        (progn
+          (hywiki-tests--remove-hywiki-hooks)
+          (with-temp-buffer
+            (hywiki-mode 1)
+            (with-hywiki-buttonize-and-insert-hooks (insert "WikiWord "))
+            (goto-char 4)
+            (hywiki-convert-words-to-org-links)
+            (should (string= "[[hy:WikiWord]] "
+                             (buffer-substring-no-properties (point-min) 
(point-max)))))
+          (with-temp-buffer
+            (hywiki-mode 1)
+            (with-hywiki-buttonize-and-insert-hooks
+              (insert "WikiWord")
+             (newline nil t))
+            (goto-char 4)
+            (hywiki-convert-words-to-org-links)
+            (should (string= "[[hy:WikiWord]]\n"
+                             (buffer-substring-no-properties (point-min) 
(point-max))))))
+      (hywiki-tests--add-hywiki-hooks)
       (hywiki-mode 0)
       (hy-delete-file-and-buffer wikipage)
       (hy-delete-dir-and-buffer hywiki-directory))))