blob: bdf85b5fa72d82fa1e3ffb8ca6256c6b7e8c6891 (
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
|
;;; test-dev-fkeys--f6-source-stem.el --- Tests for cj/--f6-source-stem -*- lexical-binding: t -*-
;;; Commentary:
;; Tests for the stem extractor. Given any source-or-test filename, returns
;; the source module name with directory, extension, and any test-pattern
;; prefix/suffix stripped. Used to map source files to their tests and
;; vice versa.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'dev-fkeys)
;;; Normal Cases — Elisp
(ert-deftest test-dev-fkeys-f6-source-stem-elisp-source ()
"Normal: a regular elisp source file's stem is its basename."
(should (string= (cj/--f6-source-stem "modules/foo.el") "foo")))
(ert-deftest test-dev-fkeys-f6-source-stem-elisp-test ()
"Normal: an elisp test file's stem strips the `test-' prefix."
(should (string= (cj/--f6-source-stem "tests/test-foo.el") "foo")))
(ert-deftest test-dev-fkeys-f6-source-stem-elisp-test-double-dash ()
"Normal: an elisp per-helper test file `test-<module>--<helper>.el' yields
the module name (everything from `--' onward is dropped)."
(should (string= (cj/--f6-source-stem "tests/test-dev-fkeys--detect-project-type.el")
"dev-fkeys")))
;;; Normal Cases — Python
(ert-deftest test-dev-fkeys-f6-source-stem-python-source ()
"Normal: a regular Python source file's stem is its basename."
(should (string= (cj/--f6-source-stem "pkg/foo.py") "foo")))
(ert-deftest test-dev-fkeys-f6-source-stem-python-test-prefix ()
"Normal: a `test_<name>.py' file's stem strips the `test_' prefix."
(should (string= (cj/--f6-source-stem "tests/test_foo.py") "foo")))
(ert-deftest test-dev-fkeys-f6-source-stem-python-test-suffix ()
"Normal: a `<name>_test.py' file's stem strips the `_test' suffix."
(should (string= (cj/--f6-source-stem "pkg/foo_test.py") "foo")))
;;; Normal Cases — Go
(ert-deftest test-dev-fkeys-f6-source-stem-go-source ()
"Normal: a regular Go source file's stem is its basename."
(should (string= (cj/--f6-source-stem "pkg/foo.go") "foo")))
(ert-deftest test-dev-fkeys-f6-source-stem-go-test ()
"Normal: a `<name>_test.go' file's stem strips the `_test' suffix."
(should (string= (cj/--f6-source-stem "pkg/foo_test.go") "foo")))
;;; Boundary Cases
(ert-deftest test-dev-fkeys-f6-source-stem-elisp-multi-segment-name ()
"Boundary: hyphenated module names round-trip cleanly."
(should (string= (cj/--f6-source-stem "modules/calendar-sync.el") "calendar-sync"))
(should (string= (cj/--f6-source-stem "tests/test-calendar-sync.el") "calendar-sync")))
(ert-deftest test-dev-fkeys-f6-source-stem-elisp-test-with-dashes-after-double-dash ()
"Boundary: a per-helper test file with hyphens in both module and helper:
`test-foo-bar--baz-qux.el' → `foo-bar' (stops at first `--')."
(should (string= (cj/--f6-source-stem "tests/test-foo-bar--baz-qux.el")
"foo-bar")))
(ert-deftest test-dev-fkeys-f6-source-stem-unknown-language-falls-back-to-basename ()
"Boundary: an unsupported extension just returns the basename without extension."
(should (string= (cj/--f6-source-stem "foo.rs") "foo"))
(should (string= (cj/--f6-source-stem "foo.txt") "foo")))
;;; Error Cases
(ert-deftest test-dev-fkeys-f6-source-stem-nil-returns-nil ()
"Error: nil filename returns nil without erroring."
(should (null (cj/--f6-source-stem nil))))
(ert-deftest test-dev-fkeys-f6-source-stem-empty-returns-nil ()
"Error: empty string returns nil."
(should (null (cj/--f6-source-stem ""))))
(provide 'test-dev-fkeys--f6-source-stem)
;;; test-dev-fkeys--f6-source-stem.el ends here
|
