Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* test/lisp/mouse-tests.el: Fix tests broken by mouse.el change

Browse source 
* test/lisp/mouse-tests.el (bug23288-use-return-value)
(bug23288-translate-to-mouse-2): Don't rely as much on details of the
implementation, so it also works with the new code.
This commit is contained in:
Stefan Monnier 2018-01-30 17:37:20 -05:00
parent 386c2ebb58
commit 2b0bcbbaa6
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/lisp/mouse-tests.el
View file

@ -27,24 +27,22 @@
(ert-deftest bug23288-use-return-value ()
"If `mouse-on-link-p' returns a string, its first character is used."
(cl-letf ((last-input-event '(down-mouse-1 nil 1))
(unread-command-events '((mouse-1 nil 1)))
(cl-letf ((unread-command-events '((down-mouse-1 nil 1) (mouse-1 nil 1)))
(mouse-1-click-follows-link t)
(mouse-1-click-in-non-selected-windows t)
((symbol-function 'mouse-on-link-p) (lambda (_pos) "abc")))
(should-not (mouse--down-1-maybe-follows-link))
(should (equal unread-command-events '(?a)))))
(should (eq 'down-mouse-1 (car-safe (aref (read-key-sequence "") 0))))
(should (eq ?a (aref (read-key-sequence "") 0)))))
(ert-deftest bug23288-translate-to-mouse-2 ()
"If `mouse-on-link-p' doesn't return a string or vector,
translate `mouse-1' events into `mouse-2' events."
(cl-letf ((last-input-event '(down-mouse-1 nil 1))
(unread-command-events '((mouse-1 nil 1)))
(cl-letf ((unread-command-events '((down-mouse-1 nil 1) (mouse-1 nil 1)))
(mouse-1-click-follows-link t)
(mouse-1-click-in-non-selected-windows t)
((symbol-function 'mouse-on-link-p) (lambda (_pos) t)))
(should-not (mouse--down-1-maybe-follows-link))
(should (equal unread-command-events '((mouse-2 nil 1))))))
(should (eq 'down-mouse-1 (car-safe (aref (read-key-sequence "") 0))))
(should (eq 'mouse-2 (car-safe (aref (read-key-sequence "") 0))))))
(ert-deftest bug26816-mouse-frame-movement ()
"Mouse moves relative to frame."