From 3cffb52c1ce4ef79a3f7ca5bc1775cd57a6cdbe7 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 16 Apr 2025 09:23:35 +0300 Subject: [PATCH] * test/lisp/tab-bar-tests.el (tab-bar-tests-quit-restore-window): Fix. Select the created frame because 'quit-window' unexpectedly selects the original frame (https://debbugs.gnu.org/71386#262). Add a comment about the `message' call bound to the original frame. https://lists.gnu.org/archive/html/emacs-devel/2025-04/msg00546.html (cherry picked from commit 864bc762a2006a549ce5274f872c3233ef09003a) --- test/lisp/tab-bar-tests.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/test/lisp/tab-bar-tests.el b/test/lisp/tab-bar-tests.el index 450713ce228..81555dad171 100644 --- a/test/lisp/tab-bar-tests.el +++ b/test/lisp/tab-bar-tests.el @@ -89,12 +89,16 @@ (should (eq (length (window-list)) 2)) (should (equal (buffer-name) "*info*")) (quit-window) + ;; 'quit-window' unexpectedly selects the original frame, + ;; so move back to the created frame + (select-frame (car (frame-list))) (should (eq (length (window-list)) 1)) (should (eq (length (frame-list)) 2)) - ;; FIXME: uncomment (should (equal (buffer-name) "*Messages*")) + (should (equal (buffer-name) "*Messages*")) (quit-window) (should (eq (length (frame-list)) 2)) - ;; Clean up the frame afterwards + ;; Delete the created frame afterwards because with tty frames + ;; the output of 'message' is bound to the original frame (delete-frame)) ;; 2.1. 'quit-restore-window' should close the tab -- 2.39.5