blob: a9defe2e6c2259385a57c4c935023d502bb29b00 (
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
|
;;; test-prog-go--classic-mode-hooks.el --- Classic go-mode hooks + gopls warn -*- lexical-binding: t; -*-
;;; Commentary:
;; The config audit found the Go setup hooks attached to go-ts-mode
;; only, so a fallback to classic go-mode silently lost indent, keys,
;; and LSP. It also flagged gopls for the load-time missing-tool
;; warning pyright/prettier already have; that warn is only honest if
;; ~/go/bin is on `exec-path' at load time (it used to join only in
;; go-mode's deferred :config, so gopls installed there read as
;; missing).
;;; 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-go)
(ert-deftest test-prog-go-hooks-cover-classic-go-mode ()
"Normal: classic go-mode runs the same setup + keybindings as go-ts-mode."
(dolist (hook '(go-mode-hook go-ts-mode-hook))
(should (memq #'cj/go-setup (symbol-value hook)))
(should (memq #'cj/go-mode-keybindings (symbol-value hook)))))
(ert-deftest test-prog-go-bin-path-on-exec-path-at-load ()
"Normal: ~/go/bin joins `exec-path' at module load, not first go buffer.
The load-time gopls warn resolves through `exec-path'; registering the
Go bin directory only in go-mode's deferred :config would make gopls
installed there warn as missing on every start."
(should (member go-bin-path exec-path)))
(ert-deftest test-prog-go-warns-when-gopls-missing ()
"Error: loading the module without gopls on PATH warns about gopls."
(let ((warned '()))
(cl-letf (((symbol-function 'executable-find) (lambda (&rest _) nil))
((symbol-function 'display-warning)
(lambda (_type msg &rest _) (push msg warned))))
(load (expand-file-name "modules/prog-go.el" user-emacs-directory) nil t))
(should (cl-some (lambda (m) (string-match-p "gopls" m)) warned))))
(provide 'test-prog-go--classic-mode-hooks)
;;; test-prog-go--classic-mode-hooks.el ends here
|
