branch: externals/hyperbole
commit 46d8da0039ec89c2705b46c1cb5d524687c33bac
Author: Mats Lidell <[email protected]>
Commit: Mats Lidell <[email protected]>
Fix test as ebut is being identified correctly
---
hui.el | 2 +-
test/hui-tests.el | 6 ++----
2 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/hui.el b/hui.el
index b3d4634cf0..81055fa062 100644
--- a/hui.el
+++ b/hui.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 19-Sep-91 at 21:42:03
-;; Last-Mod: 10-Dec-23 at 16:18:24 by Bob Weiner
+;; Last-Mod: 25-Dec-23 at 22:28:16 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
diff --git a/test/hui-tests.el b/test/hui-tests.el
index 1d67ea5dc4..6e694d73db 100644
--- a/test/hui-tests.el
+++ b/test/hui-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <[email protected]>
;;
;; Orig-Date: 30-Jan-21 at 12:00:00
-;; Last-Mod: 7-Dec-23 at 00:32:03 by Mats Lidell
+;; Last-Mod: 10-Dec-23 at 21:11:07 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -958,9 +958,7 @@ With point on label suggest that ibut for rename."
;; Explicit Button link-to-ebut
(with-temp-buffer
(ebut:program "label" 'link-to-directory "/tmp")
- (should (equal (hattr:get (hbut:at-p) 'categ) 'explicit))
- ;; BUG!? SHOULD BE LINK TO EBUT HERE
- (should (equal (caar (hui:link-possible-types)) 'link-to-ibut)))
+ (should (equal (caar (hui:link-possible-types)) 'link-to-ebut)))
;; Implicit Button link-to-ibut
(with-temp-buffer
