[elpa] externals/hyperbole 4e625d0fb9 01/13: Add test for demo key series M-x dired-other-window example

[ELPA Syncer]

branch: externals/hyperbole
commit 4e625d0fb93732f232c8f3e422bd9257011bd419
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>

    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 3277232a20..f48063b7be 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+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))