diff options
Diffstat (limited to 'tests/test-dev-fkeys--f6-current-file-tests.el')
| -rw-r--r-- | tests/test-dev-fkeys--f6-current-file-tests.el | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tests/test-dev-fkeys--f6-current-file-tests.el b/tests/test-dev-fkeys--f6-current-file-tests.el new file mode 100644 index 00000000..3f6adc25 --- /dev/null +++ b/tests/test-dev-fkeys--f6-current-file-tests.el @@ -0,0 +1,29 @@ +;;; test-dev-fkeys--f6-current-file-tests.el --- Smoke tests for cj/f6-current-file-tests -*- lexical-binding: t -*- + +;;; Commentary: +;; Smoke tests for the C-F6 fast path. Resolves buffer-file-name and the +;; projectile root, then delegates to `cj/--f6-current-file-tests-impl'. + +;;; Code: + +(require 'ert) +(require 'cl-lib) +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) +(require 'dev-fkeys) + +;;; Normal Cases + +(ert-deftest test-dev-fkeys-f6-current-file-tests-routes-to-impl () + "Normal: C-F6 invokes the orchestrator with buffer file and projectile root." + (let (seen-file seen-root) + (cl-letf (((symbol-function 'buffer-file-name) (lambda () "/p/foo.el")) + ((symbol-function 'cj/--f4-project-root) (lambda () "/p/")) + ((symbol-function 'cj/--f6-current-file-tests-impl) + (lambda (file root) + (setq seen-file file seen-root root)))) + (cj/f6-current-file-tests) + (should (string= seen-file "/p/foo.el")) + (should (string= seen-root "/p/"))))) + +(provide 'test-dev-fkeys--f6-current-file-tests) +;;; test-dev-fkeys--f6-current-file-tests.el ends here |