blob: 30b8f29de04b9bebaf49eccff0dac39801b776fd (
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
|
;;; test-latex-config--latexmk-wiring.el --- latexmk activation guards -*- lexical-binding: t; -*-
;;; Commentary:
;; Guards the two breaks that kept the latexmk workflow from activating:
;; 1. The :hook entry that sets `TeX-command-default' must target the real
;; `TeX-mode-hook'. use-package appends "-hook" to any hook symbol not
;; ending in "-mode", so the mode name `TeX-mode' is required; the literal
;; `TeX-mode-hook' expands to the nonexistent `TeX-mode-hook-hook'.
;; 2. `auctex-latexmk' must load so `auctex-latexmk-setup' runs. `:defer t'
;; with no trigger never fires; `:after tex' loads it when AUCTeX loads.
;;
;; The forms are read from the source and macroexpanded, so the test fails the
;; way the live config failed -- against the actual declaration.
;;; Code:
(require 'ert)
(require 'seq)
(require 'use-package)
(defun test-latex-config--forms ()
"Return the top-level forms in latex-config.el."
(let ((file (expand-file-name "modules/latex-config.el" user-emacs-directory))
(forms '()))
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(condition-case nil
(while t (push (read (current-buffer)) forms))
(end-of-file nil)))
(nreverse forms)))
(defun test-latex-config--use-package-form (package)
"Return the (use-package PACKAGE ...) top-level form from latex-config.el."
(seq-find (lambda (form)
(and (consp form)
(eq (car form) 'use-package)
(eq (cadr form) package)))
(test-latex-config--forms)))
(ert-deftest test-latex-config-tex-hook-targets-real-hook ()
"Regression: the latexmk-default :hook expands to `TeX-mode-hook', not the
unbound `TeX-mode-hook-hook' use-package builds from a non-mode hook symbol."
(let* ((form (test-latex-config--use-package-form 'tex))
(expansion (format "%S" (macroexpand-all form))))
(should form)
;; The hook symbol is followed by whitespace before its lambda, so anchor
;; on that to distinguish `TeX-mode-hook' from the broken `...-hook-hook'.
(should (string-match-p "TeX-mode-hook[ )]" expansion))
(should-not (string-match-p "TeX-mode-hook-hook" expansion))))
(ert-deftest test-latex-config-auctex-latexmk-loads-after-tex ()
"Regression: auctex-latexmk uses `:after tex' so `auctex-latexmk-setup' runs;
a bare `:defer t' with no trigger would never load it."
(let ((form (test-latex-config--use-package-form 'auctex-latexmk)))
(should form)
(should (member :after form))
(should (eq (cadr (member :after form)) 'tex))
(should-not (member :defer form))))
(provide 'test-latex-config--latexmk-wiring)
;;; test-latex-config--latexmk-wiring.el ends here
|
