summaryrefslogtreecommitdiff
path: root/tests/test-flycheck-languagetool-setup.el
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test-flycheck-languagetool-setup.el')
-rw-r--r--tests/test-flycheck-languagetool-setup.el71
1 files changed, 0 insertions, 71 deletions
diff --git a/tests/test-flycheck-languagetool-setup.el b/tests/test-flycheck-languagetool-setup.el
deleted file mode 100644
index a719e822..00000000
--- a/tests/test-flycheck-languagetool-setup.el
+++ /dev/null
@@ -1,71 +0,0 @@
-;;; 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