blob: 443e7d1753686e478f74b703b2dcfdfbb0723609 (
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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
;;; test-prog-python-commands.el --- Tests for prog-python command builders -*- lexical-binding: t; -*-
;;; Commentary:
;; Covers the Python helper commands in `modules/prog-python.el':
;; - `cj/--python-mypy-command' / `cj/--python-debug-command' (pure builders)
;; - `cj/python-mypy' / `cj/python-debug' (interactive wrappers, boundaries stubbed)
;; - `cj/python-mode-keybindings' (local key wiring)
;;
;; Requiring `prog-python' pulls in its `use-package' forms, so the package
;; archive needs initialising first -- same bootstrap the formatter-wiring
;; tests use.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
(require 'testutil-format-wiring)
(format-test--ensure-packages-init)
(require 'prog-python)
;; ----------------------------- command builders ------------------------------
(ert-deftest test-prog-python--python-mypy-command-normal ()
"Normal: a plain path yields \"mypy <path>\"."
(let ((mypy-path "mypy"))
(should (equal "mypy /home/me/foo.py"
(cj/--python-mypy-command "/home/me/foo.py")))))
(ert-deftest test-prog-python--python-mypy-command-spaces-quoted ()
"Boundary: a target with spaces is shell-quoted."
(let ((mypy-path "mypy"))
(should (equal (format "mypy %s" (shell-quote-argument "/home/me/my project/foo.py"))
(cj/--python-mypy-command "/home/me/my project/foo.py")))))
(ert-deftest test-prog-python--python-mypy-command-directory ()
"Boundary: a directory target (trailing slash) is passed through quoted."
(let ((mypy-path "mypy"))
(should (equal "mypy /home/me/proj/"
(cj/--python-mypy-command "/home/me/proj/")))))
(ert-deftest test-prog-python--python-mypy-command-honours-path-var ()
"Boundary: a non-default `mypy-path' is used verbatim."
(let ((mypy-path "/opt/venv/bin/mypy"))
(should (equal "/opt/venv/bin/mypy /home/me/foo.py"
(cj/--python-mypy-command "/home/me/foo.py")))))
(ert-deftest test-prog-python--python-debug-command-normal ()
"Normal: a file yields \"python3 -m pdb <file>\"."
(should (equal "python3 -m pdb /home/me/foo.py"
(cj/--python-debug-command "/home/me/foo.py"))))
(ert-deftest test-prog-python--python-debug-command-spaces-quoted ()
"Boundary: a file with spaces is shell-quoted."
(should (equal (format "python3 -m pdb %s" (shell-quote-argument "/home/me/my dir/foo.py"))
(cj/--python-debug-command "/home/me/my dir/foo.py"))))
;; ---------------------------- cj/python-mypy ---------------------------------
(ert-deftest test-prog-python-mypy-runs-compile-when-mypy-present ()
"Normal: with mypy on PATH, `compile' gets the builder's command."
(let ((mypy-path "mypy")
compiled)
(cl-letf (((symbol-function 'executable-find) (lambda (_p) "/usr/bin/mypy"))
((symbol-function 'compile) (lambda (cmd &rest _) (setq compiled cmd))))
(with-temp-buffer
(setq buffer-file-name "/home/me/foo.py")
(cj/python-mypy)
(setq buffer-file-name nil)))
(should (equal "mypy /home/me/foo.py" compiled))))
(ert-deftest test-prog-python-mypy-falls-back-to-default-directory ()
"Boundary: no file -> the command targets `default-directory'."
(let ((mypy-path "mypy")
compiled)
(cl-letf (((symbol-function 'executable-find) (lambda (_p) "/usr/bin/mypy"))
((symbol-function 'compile) (lambda (cmd &rest _) (setq compiled cmd))))
(with-temp-buffer
(setq-local default-directory "/home/me/proj/")
(cj/python-mypy)))
(should (equal "mypy /home/me/proj/" compiled))))
(ert-deftest test-prog-python-mypy-messages-when-mypy-absent ()
"Error: with mypy missing, nothing compiles and a message is shown."
(let ((mypy-path "mypy")
(compiled nil)
(messaged nil))
(cl-letf (((symbol-function 'executable-find) (lambda (_p) nil))
((symbol-function 'compile) (lambda (&rest _) (setq compiled t)))
((symbol-function 'message) (lambda (fmt &rest args)
(setq messaged (apply #'format fmt args)))))
(cj/python-mypy))
(should-not compiled)
(should (string-match-p "mypy not found" messaged))))
;; ---------------------------- cj/python-debug --------------------------------
(ert-deftest test-prog-python-debug-runs-pdb-on-current-file ()
"Normal: with a file, `pdb' gets the builder's command."
(let (pdb-cmd)
(cl-letf (((symbol-function 'pdb) (lambda (cmd) (setq pdb-cmd cmd))))
(with-temp-buffer
(setq buffer-file-name "/home/me/foo.py")
(cj/python-debug)
(setq buffer-file-name nil)))
(should (equal "python3 -m pdb /home/me/foo.py" pdb-cmd))))
(ert-deftest test-prog-python-debug-messages-without-a-file ()
"Error: no file -> pdb is not started and a message is shown."
(let ((started nil)
(messaged nil))
(cl-letf (((symbol-function 'pdb) (lambda (&rest _) (setq started t)))
((symbol-function 'message) (lambda (fmt &rest args)
(setq messaged (apply #'format fmt args)))))
(with-temp-buffer
(should-not buffer-file-name)
(cj/python-debug)))
(should-not started)
(should (string-match-p "No file" messaged))))
;; ------------------------- cj/python-mode-keybindings ------------------------
(ert-deftest test-prog-python-mode-keybindings-binds-the-fkeys ()
"Normal: S-<f5> -> `cj/python-mypy', S-<f6> -> `cj/python-debug'."
(with-temp-buffer
(use-local-map (make-sparse-keymap))
(cj/python-mode-keybindings)
(should (eq #'cj/python-mypy (local-key-binding (kbd "S-<f5>"))))
(should (eq #'cj/python-debug (local-key-binding (kbd "S-<f6>"))))))
(ert-deftest test-prog-python-mode-keybindings-is-idempotent ()
"Boundary: calling it twice leaves the same bindings, no error."
(with-temp-buffer
(use-local-map (make-sparse-keymap))
(cj/python-mode-keybindings)
(cj/python-mode-keybindings)
(should (eq #'cj/python-mypy (local-key-binding (kbd "S-<f5>"))))
(should (eq #'cj/python-debug (local-key-binding (kbd "S-<f6>"))))))
(provide 'test-prog-python-commands)
;;; test-prog-python-commands.el ends here
|
