[elpa] externals/hyperbole 8d5e95c659 08/13: Merge pull request #406 from rswgnu/add-key-series-test-for-braces

[ELPA Syncer]

branch: externals/hyperbole
commit 8d5e95c659bfef040a7cae89b6958aa2b9fe4e02
Merge: 9d596dcc72 064c23c30e
Author: Robert Weiner <rsw@gnu.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #406 from rswgnu/add-key-series-test-for-braces
    
    Add test for demo key series M-x dired-other-window example
---
 ChangeLog          |  5 +++++
 test/demo-tests.el | 13 ++++++++++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 851b3e05bd..94a79fbb4d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,11 @@
 
 * Remove warnings for unknown functions by using declare-function.
 
+2023-11-22  Mats Lidell  <matsl@gnu.org>
+
+* test/demo-tests.el (fast-demo-key-series-dired-other-window): Add test
+    from demo key series.
+
 2023-11-21  Bob Weiner  <rsw@gnu.org>
 
 * hui-select.el (hui-select-initialize): Fix to set 'syntax-table-sym'
diff --git a/test/demo-tests.el b/test/demo-tests.el
index 7f83ab4c0c..cd4f2c3324 100644
--- a/test/demo-tests.el
+++ b/test/demo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    30-Jan-21 at 12:00:00
-;; Last-Mod:     20-Nov-23 at 02:27:10 by Bob Weiner
+;; Last-Mod:     22-Nov-23 at 23:22:33 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -438,6 +438,17 @@
            (should (print (current-buffer)))))
       (hy-test-helpers:kill-buffer help-buffer))))
 
+(ert-deftest fast-demo-key-series-dired-other-window ()
+  "Action key on `dired-other-window' brings up Dired in the other window."
+  (skip-unless (not noninteractive))
+  (with-temp-buffer
+    (insert "{M-x dired-other-window RET ${hyperb:dir}/*.el RET}")
+    (goto-char 5)
+    (action-key)
+    (hy-test-helpers:consume-input-events)
+    (should (equal 'dired-mode major-mode))
+    (should (equal hyperb:dir (expand-file-name default-directory)))))
+
 (ert-deftest fast-demo-key-series-window-grid-22 ()
   "Action key on window grid key series creates a grid."
   (skip-unless (not noninteractive))