blob: eba57564e0d1e92a867ff1a0ff81c81848c50ad0 (
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
|
;;; testutil-format-wiring.el --- Shared helpers for formatter wiring tests -*- lexical-binding: t; -*-
;;; Commentary:
;; Helpers used by the per-language formatter-wiring tests. Two pieces:
;;
;; - `format-test--ensure-packages-init' bootstraps `package' once per
;; batch run so use-package forms in the prog-* modules can find
;; their packages in elpa. The Makefile's test target invokes Emacs
;; with --no-site-file --no-site-lisp, which skips the implicit
;; `package-initialize' that an interactive session would do at
;; startup.
;;
;; - `format-test--skip-unless-executable' is a thin wrapper around
;; `ert-skip' for the "formatter not installed on this machine" path.
;; Tests that need the underlying binary on PATH call this first.
;;; Code:
(require 'ert)
(require 'package)
(defvar format-test--packages-initialized nil
"Non-nil once `package-initialize' has run in this batch process.")
(defun format-test--ensure-packages-init ()
"Initialise `package' the first time this is called in a batch run."
(unless format-test--packages-initialized
(package-initialize)
(setq format-test--packages-initialized t)))
(defun format-test--skip-unless-executable (program)
"Skip the current ERT test unless PROGRAM is on PATH."
(unless (executable-find program)
(ert-skip (format "%s not on PATH; skipping installation-dependent assertion"
program))))
(provide 'testutil-format-wiring)
;;; testutil-format-wiring.el ends here
|
