branch: externals/hyperbole
commit 06fdacc1ba20d26d9e407a5e73b57dfb123105f5
Author: Mats Lidell <[email protected]>
Commit: GitHub <[email protected]>
Verify global button executes in current folder (#533)
---
ChangeLog | 5 +++++
test/hui-tests.el | 17 ++++++++++++++++-
2 files changed, 21 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index b0db4a02be..0223a0a542 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-05-31 Mats Lidell <[email protected]>
+
+* test/hui-tests.el (hui--gbut-should-execute-in-current-folder): Add test
+ for verifying global button executes in current folder.
+
2024-05-29 Bob Weiner <[email protected]>
* hsys-org.el (hsys-org-consult-grep-func): Prefer ripgrep over grep.
diff --git a/test/hui-tests.el b/test/hui-tests.el
index b4d6975b81..39c08efc5c 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: 21-Mar-24 at 17:30:27 by Mats Lidell
+;; Last-Mod: 31-May-24 at 15:58:58 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1142,6 +1142,21 @@ With point on label suggest that ibut for rename."
(with-temp-buffer
(hy-test-helpers:ensure-link-possible-type 'link-to-buffer-tmp)))
+(ert-deftest hui--gbut-should-execute-in-current-folder ()
+ "Verify global button executes in scope of current buffer."
+ (defvar global-but-file)
+ (defvar global-but-buffer)
+ (defvar current-folder)
+ (let* ((global-but-file (make-temp-file "gbut" nil ".txt"))
+ (global-but-buffer (find-file-noselect global-but-file))
+ (current-folder default-directory))
+ (unwind-protect
+ (mocklet ((gbut:file => global-but-file)
+ ((hpath:find-noselect (expand-file-name hbmap:filename
hbmap:dir-user)) => global-but-buffer))
+ (gbut:ebut-program "global" 'eval-elisp ''(should (string=
current-folder default-directory)))
+ (gbut:act "global"))
+ (hy-delete-file-and-buffer global-but-file))))
+
;; This file can't be byte-compiled without `with-simulated-input' which
;; is not part of the actual dependencies, so:
;; Local Variables:
