blob: 1cf2223051a359f44838b44e1c9950717ac4d92a (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
;;; test-dev-fkeys--f6-current-file-tests-impl.el --- Tests for cj/--f6-current-file-tests-impl -*- lexical-binding: t -*-
;;; Commentary:
;; Tests for the "Current file's tests" orchestrator. Takes (FILE
;; PROJECT-ROOT), composes the per-language test-runner command, and runs
;; it through `compile' with `default-directory' bound to PROJECT-ROOT.
;; Errors when no file, no project root, or no test runner is available
;; for the file's language.
;;; 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-impl-elisp-source ()
"Normal: an elisp source file runs `make test-name TEST=^test-<stem>-'.
Components integrated:
- `cj/--f6-current-file-tests-impl' (unit under test)
- `cj/--f6-language-detect' (real)
- `cj/--f6-source-stem' (real)
- `cj/--f6-buffer-is-test-file-p' (real)
- `cj/--f6-test-runner-cmd-for' (real)
- `compile' (MOCKED — captures cmd and default-directory)"
(let (seen-cmd seen-dir)
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq seen-cmd cmd
seen-dir default-directory))))
(cj/--f6-current-file-tests-impl
"/home/u/proj/modules/foo.el"
"/home/u/proj/")
(should (string= seen-cmd "make test-name TEST=^test-foo-"))
(should (string= (file-name-as-directory seen-dir)
(file-name-as-directory "/home/u/proj/"))))))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-elisp-test-file ()
"Normal: an elisp test file runs `make test-file FILE=<rel-path>'."
(let (seen-cmd)
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq seen-cmd cmd))))
(cj/--f6-current-file-tests-impl
"/home/u/proj/tests/test-foo.el"
"/home/u/proj/")
(should (string= seen-cmd "make test-file FILE=test-foo.el")))))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-python-source ()
"Normal: a Python source file maps to `pytest tests/test_<stem>.py'."
(let (seen-cmd)
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq seen-cmd cmd))))
(cj/--f6-current-file-tests-impl
"/home/u/proj/pkg/foo.py"
"/home/u/proj/")
(should (string= seen-cmd "pytest tests/test_foo.py")))))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-go-source ()
"Normal: a Go source file runs the package via `go test ./<rel-dir>'."
(let (seen-cmd)
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq seen-cmd cmd))))
(cj/--f6-current-file-tests-impl
"/home/u/proj/pkg/foo.go"
"/home/u/proj/")
(should (string= seen-cmd "go test ./pkg")))))
;;; Boundary Cases
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-go-source-at-root ()
"Boundary: a Go source file at project root runs `go test ./'."
(let (seen-cmd)
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq seen-cmd cmd))))
(cj/--f6-current-file-tests-impl
"/home/u/proj/main.go"
"/home/u/proj/")
(should (string= seen-cmd "go test ./")))))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-elisp-double-dash-test ()
"Boundary: a per-helper elisp test file runs `make test-file FILE=...' so
just that file's tests run, not the whole module's prefix."
(let (seen-cmd)
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq seen-cmd cmd))))
(cj/--f6-current-file-tests-impl
"/home/u/proj/tests/test-foo--bar.el"
"/home/u/proj/")
(should (string= seen-cmd "make test-file FILE=test-foo--bar.el")))))
;;; Error Cases
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-nil-file-errors ()
"Error: nil FILE signals a user-error."
(cl-letf (((symbol-function 'compile) (lambda (_cmd) nil)))
(should-error (cj/--f6-current-file-tests-impl nil "/home/u/proj/")
:type 'user-error)))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-nil-root-errors ()
"Error: nil PROJECT-ROOT signals a user-error."
(cl-letf (((symbol-function 'compile) (lambda (_cmd) nil)))
(should-error (cj/--f6-current-file-tests-impl
"/home/u/proj/modules/foo.el" nil)
:type 'user-error)))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-typescript-runs-jest ()
"TypeScript now routes to the `npx --no-install jest|vitest <path>'
runner instead of erroring as unsupported."
(let ((compile-called nil))
(cl-letf (((symbol-function 'compile)
(lambda (cmd) (setq compile-called cmd)))
((symbol-function 'executable-find) (lambda (_) nil)))
(cj/--f6-current-file-tests-impl
"/home/u/proj/src/foo.test.ts" "/home/u/proj/")
(should (stringp compile-called))
(should (string-match-p "jest src/foo.test.ts" compile-called)))))
(ert-deftest test-dev-fkeys-f6-current-file-tests-impl-unknown-language-errors ()
"Error: an unknown extension signals a user-error rather than running
something the user didn't ask for."
(cl-letf (((symbol-function 'compile) (lambda (_cmd) nil)))
(should-error (cj/--f6-current-file-tests-impl
"/home/u/proj/Makefile" "/home/u/proj/")
:type 'user-error)))
(provide 'test-dev-fkeys--f6-current-file-tests-impl)
;;; test-dev-fkeys--f6-current-file-tests-impl.el ends here
|
