From 32c65dff47f43194acde6551a4eb1dba99956099 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 6 Aug 2012 09:10:54 +0100 Subject: [PATCH] Enhancement: add some keybinding tests --- yasnippet-tests.el | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/yasnippet-tests.el b/yasnippet-tests.el index 0df959856..eb1a2452f 100644 --- a/yasnippet-tests.el +++ b/yasnippet-tests.el @@ -417,6 +417,30 @@ TODO: be meaner" (find "foofoo" menu :key #'third :test #'string=)))))))) +;;; The infamous and problematic tab keybinding +;;; +(ert-deftest test-yas-tab-binding () + (with-temp-buffer + (yas-minor-mode -1) + (should (not (eq (key-binding (yas--read-keybinding yas-trigger-key)) 'yas-expand))) + (yas-minor-mode 1) + (should (eq (key-binding (yas--read-keybinding yas-trigger-key)) 'yas-expand)) + (yas-expand-snippet "$1 $2 $3") + (dolist (k (if (listp yas-next-field-key) + yas-next-field-key + (list yas-next-field-key))) + (should (eq (key-binding (yas--read-keybinding k)) 'yas-next-field-or-maybe-expand))) + (dolist (k (if (listp yas-prev-field-key) + yas-prev-field-key + (list yas-prev-field-key))) + (should (eq (key-binding (yas--read-keybinding k)) 'yas-prev-field))))) + +(ert-deftest test-yas-in-org () + (with-temp-buffer + (org-mode) + (yas-minor-mode 1) + (should (eq (key-binding (yas--read-keybinding yas-trigger-key)) 'yas-expand)))) + ;;; Helpers ;;; -- 2.39.2