mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Fix xt-mouse-tests.el in interactive mode

Browse source 
* test/lisp/xt-mouse-tests.el (with-xterm-mouse-mode): Run only
when noninteractive.
This commit is contained in:
Michael Albinus 2024-12-14 09:37:17 +01:00
parent 2719dccbe5
commit 83245d2269
1 changed files with 27 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

53
test/lisp/xt-mouse-tests.el
View file

@ -30,32 +30,33 @@
(defmacro with-xterm-mouse-mode (&rest body)
"Run BODY with `xterm-mouse-mode' temporarily enabled."
(declare (indent 0))
`(let ((width (frame-width))
(height (frame-height)))
(unwind-protect
(progn
;; Make the frame huge so that the test input events below
;; don't hit the menu bar.
(set-frame-width nil (max width 2000))
(set-frame-height nil (max height 2000))
(cl-letf (;; Reset XTerm parameters so that the tests don't
;; get confused.
((terminal-parameter nil 'xterm-mouse-x) nil)
((terminal-parameter nil 'xterm-mouse-y) nil)
((terminal-parameter nil 'xterm-mouse-last-down) nil)
((terminal-parameter nil 'xterm-mouse-last-click) nil))
(unwind-protect
(progn
;; `xterm-mouse-mode' doesn't work in the initial
;; terminal. Since we can't create a second
;; terminal in batch mode, fake it temporarily.
(cl-letf (((symbol-function 'terminal-name)
(lambda (&optional _terminal) "fake-terminal")))
(xterm-mouse-mode 1))
,@body)
(xterm-mouse-mode 0))))
(set-frame-width nil width)
(set-frame-height nil height))))
(when noninteractive
`(let ((width (frame-width))
(height (frame-height)))
(unwind-protect
(progn
;; Make the frame huge so that the test input events below
;; don't hit the menu bar.
(set-frame-width nil (max width 2000))
(set-frame-height nil (max height 2000))
(cl-letf (;; Reset XTerm parameters so that the tests don't
;; get confused.
((terminal-parameter nil 'xterm-mouse-x) nil)
((terminal-parameter nil 'xterm-mouse-y) nil)
((terminal-parameter nil 'xterm-mouse-last-down) nil)
((terminal-parameter nil 'xterm-mouse-last-click) nil))
(unwind-protect
(progn
;; `xterm-mouse-mode' doesn't work in the initial
;; terminal. Since we can't create a second
;; terminal in batch mode, fake it temporarily.
(cl-letf (((symbol-function 'terminal-name)
(lambda (&optional _terminal) "fake-terminal")))
(xterm-mouse-mode 1))
,@body)
(xterm-mouse-mode 0))))
(set-frame-width nil width)
(set-frame-height nil height)))))
(ert-deftest xt-mouse-tracking-basic ()
(should (equal (xterm-mouse-tracking-enable-sequence)