mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-04 16:51:38 -05:00
33 lines
1.2 KiB
EmacsLisp
33 lines
1.2 KiB
EmacsLisp
(eval-when-compile (require 'cl))
|
|
(require 'ert)
|
|
|
|
(require 'ein-dev)
|
|
(ein:dev-require-all :ignore-p (lambda (f) (equal f "ein-autoloads.el")))
|
|
(eval-when-compile
|
|
;; do it also at compile time.
|
|
(ein:dev-require-all :ignore-p (lambda (f) (equal f "ein-autoloads.el"))))
|
|
|
|
|
|
(defun eintest:assert-keymap-fboundp (keymap)
|
|
(let (assert-fboundp)
|
|
(setq assert-fboundp
|
|
(lambda (event value)
|
|
(cond
|
|
((keymapp value)
|
|
(map-keymap assert-fboundp value))
|
|
((and (listp value) (eq (car value) 'menu-item))
|
|
(funcall assert-fboundp (cadr value) (caddr value)))
|
|
((consp value)
|
|
(should (functionp (cdr value))))
|
|
(value ; nil is also valid in keymap
|
|
(should (commandp value))))))
|
|
(map-keymap assert-fboundp keymap)))
|
|
|
|
(defmacro eintest:test-keymap (keymap)
|
|
`(ert-deftest ,(intern (format "%s--assert-fboundp" keymap)) ()
|
|
(eintest:assert-keymap-fboundp ,keymap)))
|
|
|
|
(eintest:test-keymap ein:notebooklist-mode-map)
|
|
(eintest:test-keymap ein:notebook-mode-map)
|
|
(eintest:test-keymap ein:traceback-mode-map)
|
|
(eintest:test-keymap ein:shared-output-mode-map)
|