mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

Fix more misleading cl-case quoting in tests

Browse Source 
* test/lisp/dnd-tests.el (x-begin-drag):
* test/lisp/so-long-tests/so-long-tests-helpers.el
(so-long-tests-assert-active, so-long-tests-assert-reverted): Remove
misleading quoting in cl-case clauses (bug#51368).
This commit is contained in:
Basil L. Contovounesios 2022-09-14 13:51:41 +03:00
parent 8c3b40254b
commit 6a5043e9f6
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/lisp/dnd-tests.el
View File

@ -52,13 +52,13 @@
;; Verify that the action is valid and pretend the drag succeeded
;; (by returning the action).
(cl-ecase action
('XdndActionCopy action)
('XdndActionMove action)
('XdndActionLink action)
(XdndActionCopy action)
(XdndActionMove action)
(XdndActionLink action)
;; These two are not technically valid, but x-begin-drag accepts
;; them anyway.
('XdndActionPrivate action)
('XdndActionAsk 'XdndActionPrivate))))
(XdndActionPrivate action)
(XdndActionAsk 'XdndActionPrivate))))
;; This doesn't work during tests.
(defalias 'gui-set-selection

12
test/lisp/so-long-tests/so-long-tests-helpers.el
View File

@ -41,14 +41,14 @@
(should (eq so-long--active t))
;; pcase fails here in Emacs 24.
(cl-case action
('so-long-mode
(so-long-mode
(should (eq major-mode 'so-long-mode))
(so-long-tests-assert-overrides)
(so-long-tests-assert-preserved))
('so-long-minor-mode
(so-long-minor-mode
(should (eq so-long-minor-mode t))
(so-long-tests-assert-overrides))
('longlines-mode
(longlines-mode
(should (eq longlines-mode t))))))
(defun so-long-tests-assert-reverted (action)
@ -61,14 +61,14 @@
(should (eq so-long--active nil))
;; pcase fails here in Emacs 24.
(cl-case action
('so-long-mode
(so-long-mode
(should-not (eq major-mode 'so-long-mode))
(so-long-tests-assert-overrides-reverted)
(so-long-tests-assert-preserved))
('so-long-minor-mode
(so-long-minor-mode
(should-not (eq so-long-minor-mode t))
(so-long-tests-assert-overrides-reverted))
('longlines-mode
(longlines-mode
(should-not (eq longlines-mode t))))))
(defun so-long-tests-assert-and-revert (action)