ilink-test - Add new test of ilink ibtype

Author: rswgnu

ChangeLog

@@ -1,5 +1,7 @@
 2026-06-18  Bob Weiner  <rsw@gnu.org>
 
+* test/hibtypes-tests.el (ibtypes::ilink-test): Add.
+
 * hywiki.el (hywiki-include-special-modes): Add to recognize HyWikiWords in
     particular special major modes, like eww and elfeed ones.
             (hywiki-potential-buffer-p): Use above setting in this function.

hactypes.el

@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    23-Sep-91 at 20:34:36
-;; Last-Mod:     14-Jun-26 at 16:06:31 by Bob Weiner
+;; Last-Mod:     18-Jun-26 at 10:01:03 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -587,7 +587,9 @@ on the implicit button to which to link."
                   (ibut:key-to-label name-key)
                   key-src))))
 
-
+    ;; !! Left over code from an earlier version of `link-to-ibut' in case
+    ;; is ever needed for reference.  rsw - 2026-06-18
+    ;;
     ;; (if key-src
     ;;     (unless (and (get-buffer key-src)
     ;;     	     (not (hypb:buffer-file-name (get-buffer key-src))))

test/hibtypes-tests.el

@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    20-Feb-21 at 23:45:00
-;; Last-Mod:     14-Jun-26 at 15:57:15 by Bob Weiner
+;; Last-Mod:     18-Jun-26 at 11:52:57 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -565,6 +565,36 @@ file.el:10:20: Warning: Message
             (should (ibtypes::org-id))))
       (hy-delete-file-and-buffer file))))
 
+(ert-deftest ibtypes::ilink-test ()
+  "Verify link to ibut in same buffer."
+  (let ((file (make-temp-file "ilink-test")))
+    (unwind-protect
+        (progn
+          (find-file file)
+          (insert "<ilink: Button1 >\n<[Button1]> <identity 1>")
+          (goto-char 4)
+          (should (ibtype:test-p 'ilink))
+          (should (= (ibut:act) 1))
+
+          ;; ilink with file name
+	  (erase-buffer)
+          (insert "<[Button2]> <identity 2>")
+          (save-excursion
+            (with-temp-buffer
+              (insert (format "<ilink: Button2:\"%s\">\n" file))
+              (goto-char 4)
+              (should (ibtype:test-p 'ilink))
+              (should (= (ibut:act) 2))))
+
+          (erase-buffer)
+          (insert "<ilink: Button3 >\n<[Other]> <identity 3>")
+          (goto-char 4)
+          (let ((err (should-error (ibtypes::ilink))))
+            (should
+             (string-match-p (rx "No button " (any punct) "Button3" (any punct) " in")
+                             (cadr err)))))
+      (hy-delete-file-and-buffer file))))
+
 ;; This file can't be byte-compiled without the `el-mock' package (because of
 ;; the use of the `with-mock' macro), which is not a dependency of Hyperbole.
 ;;  Local Variables: