Commit 84b2c9a1 authored by Sebastian Wiesner's avatar Sebastian Wiesner

Remove redundant environment checks from tests

parent 034bcda7
......@@ -188,35 +188,10 @@ should use to lookup resource files."
;;; Environment and version information
(defconst flycheck-ert-user-error-type
(if (version< emacs-version "24.2")
'error
'user-error)
"The `user-error' type used by Flycheck.")
(defun flycheck-ert-travis-ci-p ()
"Determine whether we are running on Travis CI."
(string= (getenv "TRAVIS") "true"))
(defun flycheck-ert-check-gpg ()
"Check whether GPG is available."
(or (epg-check-configuration (epg-configuration)) t))
(defun flycheck-ert-extract-version-command (re executable &rest args)
"Use RE to extract the version from EXECUTABLE with ARGS.
Run EXECUTABLE with ARGS, catch the output, and apply RE to find
the version number. Return the text captured by the first group
in RE, or nil, if EXECUTABLE is missing, or if RE failed to
match."
(-when-let (executable (executable-find executable))
(with-temp-buffer
(apply #'call-process executable nil t nil args)
(goto-char (point-min))
(when (re-search-forward re nil 'no-error)
(match-string 1)))))
;;; Test case definitions
(defmacro flycheck-ert-def-checker-test (checker language name
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment