diff options
Diffstat (limited to 'tests/test-flycheck-languagetool-setup.el')
| -rw-r--r-- | tests/test-flycheck-languagetool-setup.el | 71 |
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 |
