branch: externals/hyperbole
commit fc8597547098851c55d4d3861074e77e44f43cca
Merge: 5d10fbbe0c d1a86095dd
Author: Robert Weiner <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #847 from rswgnu/matsl-fix-save-referent-find-use-menu
Use preserve hywiki mode macro and refactor test to utilize that.
---
ChangeLog | 5 ++++-
test/hywiki-tests.el | 27 ++++++++++++---------------
2 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ecfd466c80..0255c17bfb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,7 @@
-2026-02-02 Bob Weiner <[email protected]>
+2026-02-01 Mats Lidell <[email protected]>
+
+* test/hywiki-tests.el (hywiki-tests--save-referent-find-use-menu): Use
+ hywiki-tests--preserve-hywiki-mode macro and refactor test to utilize that.
2026-02-01 Bob Weiner <[email protected]>
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index ed27057315..45fb3012de 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -1450,21 +1450,18 @@ named WikiReferent with a non-page referent type."
(ert-deftest hywiki-tests--save-referent-find-use-menu ()
"Verify saving and loading a referent find works using Hyperbole's menu."
(skip-unless (not noninteractive))
- (hywiki-tests--referent-test
- (progn
- (sit-for 0.2)
- (cons 'find #'hywiki-word-grep))
- (let ((page (cdr (hywiki-add-page "WikiWord")))
- (vertico-mode 0))
- (unwind-protect
- (progn
- (find-file page)
- (hywiki-tests--insert "\nWikiReferent\n")
- (save-buffer)
- (goto-char (point-min))
- (should (hact 'kbd-key "C-u C-h hhc WikiReferent RET f RET"))
- (hy-test-helpers:consume-input-events))
- (hy-delete-file-and-buffer page)))))
+ (hywiki-tests--preserve-hywiki-mode
+ (hywiki-tests--referent-test
+ (progn
+ (sit-for 0.2)
+ (cons 'find #'hywiki-word-grep))
+ (let ((vertico-mode 0))
+ (find-file wiki-page)
+ (hywiki-tests--insert "\nWikiReferent\n")
+ (save-buffer)
+ (goto-char (point-min))
+ (should (hact 'kbd-key "C-u C-h hhc WikiReferent RET f RET"))
+ (hy-test-helpers:consume-input-events)))))
;; Global-button
(ert-deftest hywiki-tests--save-referent-global-button ()
