[:tools ein] ensure keybindings still valid

core/test/init.el

@@ -12,6 +12,7 @@
        evil
        :tools
        pass
+       ein
        :lang
        org
        web)

modules/tools/ein/test/test-ein.el

@@ -0,0 +1,23 @@
+;; -*- no-byte-compile: t; -*-
+;;; tools/ein/test/test-ein.el
+
+(describe "tools/ein"
+  :var (project-root)
+
+  (require! :tools ein)
+  (require 'ein-notebook)
+
+  (before-each
+    (spy-on 'doom-project-root :and-call-fake (lambda () project-root)))
+
+  (it "keymap defs still valid"
+      (dolist (km (list ein:notebook-mode-map ein:notebooklist-mode-map))
+        (cl-labels ((validate-km
+                     (km)
+                     (map-keymap (lambda (type def)
+                                   (cond ((keymapp def)
+                                          (validate-km def))
+                                         (t (should-not
+                                             (and (symbolp def) (not (commandp def)))))))
+                                 km)))
+          (validate-km km)))))