test(prog-python): cover the command builders and the S-f5/S-f6 wiring

I added tests/test-prog-python-commands.el — 13 ERT tests over `cj/--python-mypy-command`, `cj/--python-debug-command`, `cj/python-mypy`, `cj/python-debug`, and `cj/python-mode-keybindings`. Normal, boundary, and error case per function. `executable-find`, `compile`, and `pdb` are stubbed at the boundary. None of the module's functions had coverage before this.

1 files changed, 144 insertions, 0 deletions

diff --git a/tests/test-prog-python-commands.el b/tests/test-prog-python-commands.el
new file mode 100644
index 00000000..443e7d17
--- /dev/null
+++ b/tests/test-prog-python-commands.el
@@ -0,0 +1,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