diff options
Diffstat (limited to 'test/automated/xt-mouse-tests.el')
| -rw-r--r-- | test/automated/xt-mouse-tests.el | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/test/automated/xt-mouse-tests.el b/test/automated/xt-mouse-tests.el deleted file mode 100644 index c7e835c0311..00000000000 --- a/test/automated/xt-mouse-tests.el +++ /dev/null @@ -1,110 +0,0 @@ -;;; xt-mouse-tests.el --- Test suite for xt-mouse. -*- lexical-binding: t; -*- - -;; Copyright (C) 2016 Free Software Foundation, Inc. - -;; Author: Philipp Stephani <phst@google.com> - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;;; Code: - -(require 'xt-mouse) - -(defmacro with-xterm-mouse-mode (&rest body) - "Run BODY with `xterm-mouse-mode' temporarily enabled." - (declare (indent 0)) - ;; Make the frame huge so that the test input events below don't hit - ;; the menu bar. - `(cl-letf (((frame-width nil) 2000) - ((frame-height nil) 2000) - ;; 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)) - (if xterm-mouse-mode - (progn ,@body) - (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)) - ,@body) - (xterm-mouse-mode 0))))) - -(ert-deftest xt-mouse-tracking-basic () - (should (equal (xterm-mouse-tracking-enable-sequence) - "\e[?1000h\e[?1002h\e[?1006h")) - (should (equal (xterm-mouse-tracking-disable-sequence) - "\e[?1006l\e[?1002l\e[?1000l")) - (with-xterm-mouse-mode - (should xterm-mouse-mode) - (should (terminal-parameter nil 'xterm-mouse-mode)) - (should-not (terminal-parameter nil 'xterm-mouse-utf-8)) - (let* ((unread-command-events (append "\e[M%\xD9\x81" - "\e[M'\xD9\x81" nil)) - (key (read-key))) - (should (consp key)) - (cl-destructuring-bind (event-type position . rest) key - (should (equal event-type 'S-mouse-2)) - (should (consp position)) - (cl-destructuring-bind (_ _ xy . rest) position - (should (equal xy '(184 . 95)))))))) - -(ert-deftest xt-mouse-tracking-utf-8 () - (let ((xterm-mouse-utf-8 t)) - (should (equal (xterm-mouse-tracking-enable-sequence) - "\e[?1000h\e[?1002h\e[?1005h\e[?1006h")) - (should (equal (xterm-mouse-tracking-disable-sequence) - "\e[?1006l\e[?1005l\e[?1002l\e[?1000l")) - (with-xterm-mouse-mode - (should xterm-mouse-mode) - (should (terminal-parameter nil 'xterm-mouse-mode)) - (should (terminal-parameter nil 'xterm-mouse-utf-8)) - ;; The keyboard driver doesn't decode bytes in - ;; `unread-command-events'. - (let* ((unread-command-events (append "\e[M%\u0640\u0131" - "\e[M'\u0640\u0131" nil)) - (key (read-key))) - (should (consp key)) - (cl-destructuring-bind (event-type position . rest) key - (should (equal event-type 'S-mouse-2)) - (should (consp position)) - (cl-destructuring-bind (_ _ xy . rest) position - (should (equal xy '(1567 . 271))))))))) - -(ert-deftest xt-mouse-tracking-sgr () - (with-xterm-mouse-mode - (should xterm-mouse-mode) - (should (terminal-parameter nil 'xterm-mouse-mode)) - (should-not (terminal-parameter nil 'xterm-mouse-utf-8)) - (let* ((unread-command-events (append "\e[<5;1569;273;M" - "\e[<5;1569;273;m" nil)) - (key (read-key))) - (should (consp key)) - (cl-destructuring-bind (event-type position . rest) key - (should (equal event-type 'S-mouse-2)) - (should (consp position)) - (cl-destructuring-bind (_ _ xy . rest) position - (should (equal xy '(1568 . 271)))))))) - -;;; xt-mouse-tests.el ends here |