1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;; test-json.el --- Flycheck Specs: JSON -*- lexical-binding: t; -*-
;;; Code:
(require 'flycheck-buttercup)
(require 'test-helpers)
(describe "Language JSON"
(flycheck-buttercup-def-checker-test json-python-json json nil
(flycheck-buttercup-should-syntax-check
"language/json.json" 'json-mode
'(1 44 error "Extra data" :checker json-python-json)))
(flycheck-buttercup-def-checker-test json-jq json nil
(let ((flycheck-disabled-checkers '(json-python-json)))
(flycheck-buttercup-should-syntax-check
"language/json.json" 'json-mode
'(1 44 error "Expected value before ','" :checker json-jq)))))
;;; test-json.el ends here
|
