From 4e625d0fb93732f232c8f3e422bd9257011bd419 Mon Sep 17 00:00:00 2001 From: Mats Lidell <mats.lidell@lidells.se> Date: Wed, 22 Nov 2023 23:25:49 +0100 Subject: [PATCH] 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 3277232a..f48063b7 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 7f83ab4c..cd4f2c33 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))