diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-keybindings--jump-commands.el | 50 | ||||
| -rw-r--r-- | tests/test-keybindings--jump-open-var.el | 92 |
2 files changed, 142 insertions, 0 deletions
diff --git a/tests/test-keybindings--jump-commands.el b/tests/test-keybindings--jump-commands.el new file mode 100644 index 00000000..6fc01285 --- /dev/null +++ b/tests/test-keybindings--jump-commands.el @@ -0,0 +1,50 @@ +;;; test-keybindings--jump-commands.el --- Smoke tests for the auto-generated jump commands -*- lexical-binding: t; -*- + +;;; Commentary: +;; Smoke tests for the `cj/jump-to-NAME' commands that the `dolist' over +;; `cj/jump--specs' generates in keybindings.el. Each spec entry is +;; (KEY NAME-SYM VAR-SYM); the loop creates a defalias and binds it +;; under `cj/jump-map'. These tests assert the wiring without exercising +;; the underlying I/O. + +;;; Code: + +(require 'ert) +(require 'cl-lib) + +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) +(require 'keybindings) + +(ert-deftest test-keybindings-jump-commands-each-spec-has-fbound-command () + "Smoke: each `cj/jump--specs' entry has an fbound `cj/jump-to-NAME'." + (dolist (spec cj/jump--specs) + (pcase-let ((`(,_key ,name ,_var) spec)) + (let ((fn (intern (format "cj/jump-to-%s" name)))) + (should (fboundp fn)))))) + +(ert-deftest test-keybindings-jump-commands-each-spec-bound-in-jump-map () + "Smoke: each `cj/jump--specs' entry's key is bound to its command in +`cj/jump-map'." + (dolist (spec cj/jump--specs) + (pcase-let ((`(,key ,name ,_var) spec)) + (let ((fn (intern (format "cj/jump-to-%s" name)))) + (should (eq fn (lookup-key cj/jump-map (kbd key)))))))) + +(ert-deftest test-keybindings-jump-commands-each-calls-jump-open-var-with-spec-var () + "Smoke: each `cj/jump-to-NAME' calls `cj/jump-open-var' with the var +from its spec entry, in spec order." + (let (calls) + (cl-letf (((symbol-function 'cj/jump-open-var) + (lambda (var) (push var calls)))) + (dolist (spec cj/jump--specs) + (pcase-let ((`(,_key ,name ,_var) spec)) + (funcall (intern (format "cj/jump-to-%s" name)))))) + (let ((expected-vars (mapcar (lambda (spec) (nth 2 spec)) cj/jump--specs))) + (should (equal (nreverse calls) expected-vars))))) + +(ert-deftest test-keybindings-jump-map-mounted-under-custom-keymap () + "Smoke: `cj/jump-map' is mounted at \"j\" under `cj/custom-keymap'." + (should (eq cj/jump-map (lookup-key cj/custom-keymap (kbd "j"))))) + +(provide 'test-keybindings--jump-commands) +;;; test-keybindings--jump-commands.el ends here diff --git a/tests/test-keybindings--jump-open-var.el b/tests/test-keybindings--jump-open-var.el new file mode 100644 index 00000000..bd04f4cf --- /dev/null +++ b/tests/test-keybindings--jump-open-var.el @@ -0,0 +1,92 @@ +;;; test-keybindings--jump-open-var.el --- Tests for cj/jump-open-var -*- lexical-binding: t; -*- + +;;; Commentary: +;; Tests for `cj/jump-open-var' in keybindings.el. The helper takes a +;; variable symbol, validates that the variable is bound, holds a +;; non-empty string, and points at an existing file, then opens it via +;; `find-file'. Each failure path raises `user-error'. + +;;; Code: + +(require 'ert) +(require 'cl-lib) + +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) +(require 'keybindings) + +(defvar test-keybindings--fixture-var nil + "Shared fixture variable for `cj/jump-open-var' tests. +Declared at top level so `let'-binding inside tests sees it as special +under lexical-binding.") + +(defmacro test-keybindings--with-find-file-mock (capture-var &rest body) + "Run BODY with `find-file' replaced by a mock that captures its arg. +CAPTURE-VAR is set to the path passed to `find-file', or stays nil if +the mock is never called." + (declare (indent 1) (debug t)) + `(cl-letf (((symbol-function 'find-file) + (lambda (path) (setq ,capture-var path)))) + ,@body)) + +(defmacro test-keybindings--with-fixture (value &rest body) + "Bind `test-keybindings--fixture-var' to VALUE for BODY, then reset." + (declare (indent 1) (debug t)) + `(unwind-protect + (progn (setq test-keybindings--fixture-var ,value) ,@body) + (setq test-keybindings--fixture-var nil))) + +;;; Normal cases + +(ert-deftest test-keybindings-jump-open-var-existing-file-calls-find-file () + "Normal: bound var holding a path to an existing file calls `find-file'." + (let ((tmp (make-temp-file "jump-test-"))) + (unwind-protect + (test-keybindings--with-fixture tmp + (let (captured) + (test-keybindings--with-find-file-mock captured + (cj/jump-open-var 'test-keybindings--fixture-var) + (should (equal captured tmp))))) + (when (file-exists-p tmp) (delete-file tmp))))) + +;;; Boundary / Error cases + +(ert-deftest test-keybindings-jump-open-var-unbound-raises () + "Error: an unbound variable raises `user-error' naming the variable." + (let ((sym (make-symbol "test-keybindings--unbound"))) + (let ((err (should-error (cj/jump-open-var sym) :type 'user-error))) + (should (string-match-p (symbol-name sym) + (error-message-string err)))))) + +(ert-deftest test-keybindings-jump-open-var-nil-value-raises () + "Error: a variable bound to nil raises `user-error'." + (test-keybindings--with-fixture nil + (should-error (cj/jump-open-var 'test-keybindings--fixture-var) + :type 'user-error))) + +(ert-deftest test-keybindings-jump-open-var-non-string-raises () + "Error: a variable bound to a non-string raises `user-error'." + (test-keybindings--with-fixture 42 + (should-error (cj/jump-open-var 'test-keybindings--fixture-var) + :type 'user-error))) + +(ert-deftest test-keybindings-jump-open-var-empty-string-raises () + "Error: a variable bound to the empty string raises `user-error'." + (test-keybindings--with-fixture "" + (should-error (cj/jump-open-var 'test-keybindings--fixture-var) + :type 'user-error))) + +(ert-deftest test-keybindings-jump-open-var-missing-file-raises () + "Error: a path to a non-existent file raises `user-error' naming the path." + (let ((missing-path (concat temporary-file-directory + "definitely-not-here-" + (number-to-string (random 1000000)) ".org"))) + (should-not (file-exists-p missing-path)) + (test-keybindings--with-fixture missing-path + (let ((err (should-error + (cj/jump-open-var 'test-keybindings--fixture-var) + :type 'user-error))) + (should (string-match-p (regexp-quote missing-path) + (error-message-string err))))))) + +(provide 'test-keybindings--jump-open-var) +;;; test-keybindings--jump-open-var.el ends here |