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
|
;;; test-status-reporting.el --- Flycheck Specs: Status Reporting -*- lexical-binding: t; -*-
;;; Code:
(require 'flycheck-buttercup)
(require 'test-helpers)
(describe "Status reporting"
(describe "flycheck-report-status"
(it "runs functions"
(flycheck-buttercup-with-temp-buffer
(let* ((was-called nil)
(flycheck-status-changed-functions
(list (lambda (status) (setq was-called status)))))
(flycheck-report-status 'running)
(expect was-called :to-be 'running)))))
(describe "flycheck-report-failed-syntax-check"
(it "runs hook"
(flycheck-buttercup-with-temp-buffer
(let* ((was-called nil)
(flycheck-syntax-check-failed-hook
(list (lambda () (setq was-called t)))))
(flycheck-report-failed-syntax-check)
(expect was-called :to-be-truthy))))
(it "clears errors"
(flycheck-buttercup-with-temp-buffer
(let ((flycheck-current-errors (list 'foo)))
(flycheck-report-failed-syntax-check)
(expect flycheck-current-errors :not :to-be-truthy)))))
(describe "flycheck-fill-and-expand-error-file-names"
(it "fills and expands error file names"
(flycheck-buttercup-with-resource-buffer "global-mode-dummy.el"
(let* ((absolute-fn (flycheck-buttercup-resource-filename "substitute-dummy"))
(cwd (file-name-directory absolute-fn))
(relative-fn (file-name-nondirectory absolute-fn))
(errors (list (flycheck-error-new :filename "foo")
(flycheck-error-new :filename absolute-fn)
(flycheck-error-new :filename relative-fn)
(flycheck-error-new :filename nil))))
(expect (mapcar #'flycheck-error-filename
(flycheck-fill-and-expand-error-file-names errors
cwd))
:to-equal
(list (flycheck-buttercup-resource-filename "foo")
absolute-fn
absolute-fn
(flycheck-buttercup-resource-filename
"global-mode-dummy.el"))))))))
;;; test-status-reporting.el ends here
|
