blob: a719e8225ae83ee077d53b86021423af44b711ba (
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
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
|
;;; test-flycheck-languagetool-setup.el --- Unit tests for LanguageTool setup -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests verifying LanguageTool installation and wrapper script setup.
;; Focus: Testing OUR code (wrapper script, file setup), not flycheck internals.
;;
;; We trust that flycheck works correctly (it's an external framework).
;; These tests verify:
;; - LanguageTool is installed and accessible
;; - Our wrapper script exists, is executable, and has correct structure
;; - Python 3 dependency is available
;;
;; Categories: Normal (installation checks), Boundary (script structure), Error (missing dependencies)
;;; Code:
(require 'ert)
;; ----------------------------- Normal Cases ----------------------------------
(ert-deftest test-flycheck-languagetool-setup-normal-wrapper-exists ()
"Test that languagetool-flycheck wrapper script exists."
(let ((wrapper-path (expand-file-name "~/.emacs.d/scripts/languagetool-flycheck")))
(should (file-exists-p wrapper-path))))
(ert-deftest test-flycheck-languagetool-setup-normal-wrapper-executable ()
"Test that languagetool-flycheck wrapper script is executable."
(let ((wrapper-path (expand-file-name "~/.emacs.d/scripts/languagetool-flycheck")))
(should (file-executable-p wrapper-path))))
(ert-deftest test-flycheck-languagetool-setup-normal-languagetool-installed ()
"Test that languagetool command is available in PATH."
(should (executable-find "languagetool")))
(ert-deftest test-flycheck-languagetool-setup-normal-python3-available ()
"Test that python3 is available for wrapper script."
(should (executable-find "python3")))
;; ----------------------------- Boundary Cases --------------------------------
(ert-deftest test-flycheck-languagetool-setup-boundary-wrapper-script-format ()
"Test that wrapper script has correct shebang and structure."
(let ((wrapper-path (expand-file-name "~/.emacs.d/scripts/languagetool-flycheck")))
(with-temp-buffer
(insert-file-contents wrapper-path)
(goto-char (point-min))
;; Check shebang
(should (looking-at "#!/usr/bin/env python3"))
;; Check it contains required imports
(should (search-forward "import json" nil t))
(should (search-forward "import subprocess" nil t)))))
;; ----------------------------- Error Cases -----------------------------------
(ert-deftest test-flycheck-languagetool-setup-error-missing-file-argument ()
"Test that wrapper script requires file argument.
When called without arguments, wrapper should exit with error."
(let* ((wrapper (expand-file-name "~/.emacs.d/scripts/languagetool-flycheck"))
(exit-code nil))
(with-temp-buffer
(setq exit-code (call-process wrapper nil t nil))
;; Should exit with non-zero status when no file provided
(should-not (= 0 exit-code))
;; Should print usage message to stderr (captured in buffer)
(goto-char (point-min))
(should (or (search-forward "Usage:" nil t)
(search-forward "FILE" nil t))))))
(provide 'test-flycheck-languagetool-setup)
;;; test-flycheck-languagetool-setup.el ends here
|
