Merge pull request #406 from rswgnu/add-key-series-test-for-braces

Add test for demo key series M-x dired-other-window example

Author: rswgnu

ChangeLog

@@ -5,6 +5,11 @@
 
 * Remove warnings for unknown functions by using declare-function.
 
+2023-11-22  Mats Lidell  <[email protected]>
+
+* test/demo-tests.el (fast-demo-key-series-dired-other-window): Add test
+    from demo key series.
+
 2023-11-21  Bob Weiner  <[email protected]>
 
 * hui-select.el (hui-select-initialize): Fix to set 'syntax-table-sym'

test/demo-tests.el

@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <[email protected]>
 ;;
 ;; 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))