From 4cd1e8e63d885d8de2728dc76d4f35f0eb597037 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Tue, 28 Apr 2026 14:21:18 -0500 Subject: test: add gloss-core test suite (red phase) The commit lands eight per-function test files and a shared testutil. 32 tests across Normal/Boundary/Error categories cover the public API (lookup, save, list, find-buffer-position) and the internals that need observable behavior tests (mtime invalidation, corrupt-file resilience, alphabetical insert, first-call file creation). All 32 fail with void-function on the gloss-core symbols. That is the intended red-phase signal. The next commit lands the implementation that turns them green. testutil-gloss provides a with-temp-glossary macro. It binds gloss-file to a temp file, resets the cache before and after, and cleans up the visiting buffer. --- tests/test-gloss-core--list.el | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 tests/test-gloss-core--list.el (limited to 'tests/test-gloss-core--list.el') diff --git a/tests/test-gloss-core--list.el b/tests/test-gloss-core--list.el new file mode 100644 index 0000000..22c988e --- /dev/null +++ b/tests/test-gloss-core--list.el @@ -0,0 +1,36 @@ +;;; test-gloss-core--list.el --- Tests for gloss-core-list -*- lexical-binding: t -*- + +;; SPDX-License-Identifier: GPL-3.0-or-later + +;;; Commentary: +;; Tests for `gloss-core-list' covering Normal/Boundary/Error cases. + +;;; Code: + +(require 'ert) +(require 'gloss-core) +(require 'testutil-gloss) + +(ert-deftest test-gloss-core-list-returns-all-terms-alphabetically () + "Normal: list returns all terms in case-insensitive alphabetical order." + (gloss-test--with-temp-glossary gloss-test--sample-content + (should (equal (gloss-core-list) '("anaphora" "SBIR"))))) + +(ert-deftest test-gloss-core-list-empty-glossary-returns-nil () + "Boundary: list against an empty file returns nil." + (gloss-test--with-temp-glossary "#+TITLE: Glossary\n" + (should-not (gloss-core-list)))) + +(ert-deftest test-gloss-core-list-missing-file-returns-nil () + "Error: list before any save returns nil (file does not exist)." + (let ((gloss-file (concat temporary-file-directory "gloss-list-nonexistent-" + (number-to-string (random 100000)) ".org"))) + (unwind-protect + (progn + (gloss-core--cache-reset) + (should-not (gloss-core-list))) + (gloss-core--cache-reset) + (when (file-exists-p gloss-file) (delete-file gloss-file))))) + +(provide 'test-gloss-core--list) +;;; test-gloss-core--list.el ends here -- cgit v1.2.3