branch: externals/hyperbole
commit 2ae823bf9dd3db994b36529df152a41eed809765
Author: Robert Weiner <r...@gnu.org>
Commit: Robert Weiner <r...@gnu.org>
Try to fix failing CI test, fast-demo-key-series-help-buffer
---
test/demo-tests.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/test/demo-tests.el b/test/demo-tests.el
index 9a7391b03e..e8f7c4fcd7 100644
--- a/test/demo-tests.el
+++ b/test/demo-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <ma...@gnu.org>
;;
;; Orig-Date: 30-Jan-21 at 12:00:00
-;; Last-Mod: 9-Aug-23 at 00:52:32 by Bob Weiner
+;; Last-Mod: 9-Aug-23 at 01:18:08 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -441,7 +441,8 @@
;; Fast demo key series
(ert-deftest fast-demo-key-series-help-buffer ()
"Action key on C-hA brings up help buffer for action key."
- (let ((help-buffer "*Help: Hyperbole Action Key*"))
+ (let ((help-buffer "*Help: Hyperbole Action Key*")
+ (help-window-select t))
(unwind-protect
(with-temp-buffer
(insert "{C-h A}")
@@ -449,8 +450,7 @@
(action-key)
(if (get-buffer help-buffer)
(should (get-buffer help-buffer))
- (print (current-buffer))
- (should nil)))
+ (should (print (current-buffer)))))
(hy-test-helpers:kill-buffer help-buffer))))
(ert-deftest fast-demo-key-series-window-grid-22 ()
