1 files changed, 71 insertions, 0 deletions
diff --git a/tests/test-flycheck-languagetool-setup.el b/tests/test-flycheck-languagetool-setup.el
new file mode 100644
index 00000000..a719e822
--- /dev/null
+++ b/tests/test-flycheck-languagetool-setup.el
@@ -0,0 +1,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