blob: 93dd6d8be79005df70f6b5ffe9323b17dff54e54 (
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
|
;;; test-dev-fkeys--f6-language-detect.el --- Tests for cj/--f6-language-detect -*- lexical-binding: t -*-
;;; Commentary:
;; Tests for the language classifier used by the F6 test runner. Detection
;; runs purely off the file extension. The classifier returns one of
;; \\='elisp / \\='python / \\='go / \\='typescript / \\='javascript / \\='unknown.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'dev-fkeys)
;;; Normal Cases
(ert-deftest test-dev-fkeys-f6-language-detect-elisp ()
"Normal: .el classifies as elisp."
(should (eq (cj/--f6-language-detect "foo.el") 'elisp)))
(ert-deftest test-dev-fkeys-f6-language-detect-python ()
"Normal: .py classifies as python."
(should (eq (cj/--f6-language-detect "foo.py") 'python)))
(ert-deftest test-dev-fkeys-f6-language-detect-go ()
"Normal: .go classifies as go."
(should (eq (cj/--f6-language-detect "foo.go") 'go)))
(ert-deftest test-dev-fkeys-f6-language-detect-typescript ()
"Normal: .ts and .tsx classify as typescript."
(should (eq (cj/--f6-language-detect "foo.ts") 'typescript))
(should (eq (cj/--f6-language-detect "foo.tsx") 'typescript)))
(ert-deftest test-dev-fkeys-f6-language-detect-javascript ()
"Normal: .js and .jsx classify as javascript."
(should (eq (cj/--f6-language-detect "foo.js") 'javascript))
(should (eq (cj/--f6-language-detect "foo.jsx") 'javascript)))
;;; Boundary Cases
(ert-deftest test-dev-fkeys-f6-language-detect-with-directory-path ()
"Boundary: classifier ignores the path, looks only at extension."
(should (eq (cj/--f6-language-detect "/abs/path/to/foo.el") 'elisp))
(should (eq (cj/--f6-language-detect "rel/dir/foo.py") 'python)))
(ert-deftest test-dev-fkeys-f6-language-detect-test-file-name ()
"Boundary: a filename that is itself a test file still classifies by extension.
The test-file-vs-source distinction is a separate helper."
(should (eq (cj/--f6-language-detect "tests/test-foo.el") 'elisp))
(should (eq (cj/--f6-language-detect "tests/test_foo.py") 'python))
(should (eq (cj/--f6-language-detect "pkg/foo_test.go") 'go)))
(ert-deftest test-dev-fkeys-f6-language-detect-uppercase-extension ()
"Boundary: extension match is case-insensitive (.PY, .EL, etc.)."
(should (eq (cj/--f6-language-detect "foo.EL") 'elisp))
(should (eq (cj/--f6-language-detect "foo.PY") 'python)))
(ert-deftest test-dev-fkeys-f6-language-detect-no-extension ()
"Boundary: a filename with no extension classifies as unknown."
(should (eq (cj/--f6-language-detect "Makefile") 'unknown))
(should (eq (cj/--f6-language-detect "README") 'unknown)))
(ert-deftest test-dev-fkeys-f6-language-detect-unsupported-extension ()
"Boundary: an extension we do not classify returns unknown."
(should (eq (cj/--f6-language-detect "foo.rs") 'unknown))
(should (eq (cj/--f6-language-detect "foo.rb") 'unknown))
(should (eq (cj/--f6-language-detect "foo.txt") 'unknown)))
;;; Error Cases
(ert-deftest test-dev-fkeys-f6-language-detect-nil-filename ()
"Error: nil filename returns unknown without erroring (defensive against
buffers that aren't backed by files)."
(should (eq (cj/--f6-language-detect nil) 'unknown)))
(ert-deftest test-dev-fkeys-f6-language-detect-empty-filename ()
"Error: empty string returns unknown."
(should (eq (cj/--f6-language-detect "") 'unknown)))
(provide 'test-dev-fkeys--f6-language-detect)
;;; test-dev-fkeys--f6-language-detect.el ends here
|
