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
|
;;; run.el --- Flycheck: Test runner -*- lexical-binding: t; -*-
;; Copyright (C) 2014-2016 Sebastian Wiesner and Flycheck contributors
;; Author: Sebastian Wiesner <swiesner@lunaryorn.com>
;; Maintainer: Sebastian Wiesner <swiesner@lunaryorn.com>
;; URL: https://www.flycheck.org
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Flycheck test runner.
;;; Code:
(defun flycheck-run-check-selector (selector)
"Check SELECTOR if it fails loading."
(with-temp-buffer
(insert selector)
(goto-char (point-min))
(condition-case nil
(progn
(check-parens)
(message "Invalid selector: %S" selector))
(error
(message "Unbalanced parenthesis in selector %S at %s"
selector (1+ (current-column)))))))
(defun flycheck-transform-selector (selector)
"Transform SELECTOR to implement some custom selectors.
This function adds the following custom selectors:
`(language FOO)' -> `(tag language-FOO)'
`(checker FOO)' -> `(tag checker-FOO)'"
(pcase selector
(`(language ,(and language (pred symbolp)))
(list 'tag (intern (concat "language-" (symbol-name language)))))
(`(checker ,(and checker (pred symbolp)))
(list 'tag (intern (concat "checker-" (symbol-name checker)))))
(`(new-checker-for ,(and language (pred symbolp)))
;; For a new checker for a language we need to run the documentation and
;; style tests, and all tests for the corresponding language, in order to
;; make sure that all chaining still works, and that the order of checkers
;; is still correct.
(flycheck-transform-selector `(or (tag documentation)
(tag style)
(language ,language))))
(`(,group . ,body)
(cons group (mapcar #'flycheck-transform-selector body)))
(simple simple)))
(defun flycheck-read-whole-string (str)
"Read from whole STR."
(pcase-let ((`(,obj . ,index) (read-from-string str)))
(if (/= index (length str))
(error "Can't read whole string")
obj)))
(defun flycheck-run-tests-batch-and-exit ()
"Run test cases matching tags in `argv' and exit.
Read an ERT test selector from the first command line argument,
run matching tests and exit. See `ert-select-tests' and Info
Node `(ert)Test Selectors' for information about test selectors."
(when (string= (car argv) "--")
;; Skip over the command line argument separator
(pop argv))
(let ((selector (pop argv)))
(when argv
;; Warn about unused trailing arguments, and remove them, to prevent Emacs
;; from trying to parse them.
(message "WARNING: Unused trailing arguments: %S" argv)
(setq argv nil))
(setq selector
`(and "flycheck-"
,(cond
((not selector) t)
((= (length selector) 0)
(message "Warning: Empty test selector, defaulting to t")
t)
(t (condition-case nil
(flycheck-read-whole-string selector)
(error
(flycheck-run-check-selector selector)
(kill-emacs 1)))))))
(ert-run-tests-batch-and-exit (flycheck-transform-selector selector))))
(defvar flycheck-runner-file
(if load-in-progress load-file-name (buffer-file-name)))
(defun flycheck-run-tests-main ()
"Main entry point of the test runner."
(let* ((load-prefer-newer t)
(source-directory (locate-dominating-file flycheck-runner-file "Cask"))
(pkg-rel-dir (format ".cask/%s.%S/elpa"
emacs-major-version
emacs-minor-version)))
;; Standardise on the C locale to prevent programs from writing fancy
;; unicode characters and thus make test output predictable
(setenv "LC_ALL" "C")
(setq package-user-dir (expand-file-name pkg-rel-dir source-directory))
(package-initialize)
(message "Running tests on Emacs %s, built at %s"
emacs-version (format-time-string "%F" emacs-build-time))
(let ((debug-on-error t))
(flycheck-run-tests-batch-and-exit))))
;;; run.el ends here
|
