ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Enhancement: add some keybinding tests

Browse Source
This commit is contained in:
João Távora 2012-08-06 09:10:54 +01:00
parent 18714eac59
commit 32c65dff47
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
yasnippet-tests.el
View File

@ -417,6 +417,30 @@ TODO: be meaner"
(find "foofoo" menu :key #'third :test #'string=)))))))) (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 ;;; Helpers
;;; ;;;