diff options
Diffstat (limited to 'tests/test-org-drill-session-keys.el')
| -rw-r--r-- | tests/test-org-drill-session-keys.el | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/test-org-drill-session-keys.el b/tests/test-org-drill-session-keys.el new file mode 100644 index 0000000..ff1b4b1 --- /dev/null +++ b/tests/test-org-drill-session-keys.el @@ -0,0 +1,33 @@ +;;; test-org-drill-session-keys.el --- Tests for customizable session keys -*- lexical-binding: t; -*- + +;;; Commentary: +;; The session-control keys (quit/edit/help/skip/tags) are defcustoms so they +;; can be rebound through customize-group (upstream issue #35), while keeping +;; their historical default characters. + +;;; Code: + +(require 'ert) +(require 'org-drill) + +(defconst test-org-drill-session-key-defaults + '((org-drill--quit-key . ?q) + (org-drill--edit-key . ?e) + (org-drill--help-key . ??) + (org-drill--skip-key . ?s) + (org-drill--tags-key . ?t)) + "Each session-control key variable and its historical default character.") + +(ert-deftest test-org-drill-session-keys-are-customizable () + "Each session-control key is a defcustom, so customize-group can set it." + (dolist (cell test-org-drill-session-key-defaults) + (should (custom-variable-p (car cell))))) + +(ert-deftest test-org-drill-session-keys-keep-their-defaults () + "Promoting to defcustom does not change the default bindings." + (dolist (cell test-org-drill-session-key-defaults) + (should (eq (cdr cell) (default-value (car cell)))))) + +(provide 'test-org-drill-session-keys) + +;;; test-org-drill-session-keys.el ends here |