blob: 3f6adc255998f2adf7675aa3e2c9418fcfc7c98e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
|
