aboutsummaryrefslogtreecommitdiff
path: root/tests/test-gloss--reload-smoke.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-04-30 01:07:44 -0500
committerCraig Jennings <c@cjennings.net>2026-04-30 01:07:44 -0500
commitd313c37f14511564849c70c564c14ca51bd4ae7c (patch)
tree315a0bf268c937f406e3060f07325dae9378152c /tests/test-gloss--reload-smoke.el
parenteefd55510cf6b180a7dcc9be40fde894d9adf3ac (diff)
downloadgloss-d313c37f14511564849c70c564c14ca51bd4ae7c.tar.gz
gloss-d313c37f14511564849c70c564c14ca51bd4ae7c.zip
test: add gloss secondary commands test suite (red phase)
Six test files for the remaining stub commands. All 14 tests fail at this commit because the implementations are stubs. `gloss--add-finish-internal' (the pure save side of `gloss-add') gets N/B/E coverage on validation and the persistence side effect. `gloss--stats-text' (the pure stats string formatter) covers empty, populated, and missing-file cases. The interactive commands (`gloss-edit', `gloss-list-terms', `gloss-reload', `gloss-drill-export') get smoke tests only — the design treats them as mode-glue with 70% coverage targets, since prompts and `switch-to-buffer' are framework behaviour Emacs already tests. Two error-path tests assert the message contains a specific substring, not just that `user-error' was raised. The stubs raise `user-error' too, so a bare `should-error' would pass for the wrong reason. The substring check anchors red against the real error path.
Diffstat (limited to 'tests/test-gloss--reload-smoke.el')
-rw-r--r--tests/test-gloss--reload-smoke.el24
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/test-gloss--reload-smoke.el b/tests/test-gloss--reload-smoke.el
new file mode 100644
index 0000000..14af147
--- /dev/null
+++ b/tests/test-gloss--reload-smoke.el
@@ -0,0 +1,24 @@
+;;; test-gloss--reload-smoke.el --- Smoke test for gloss-reload -*- lexical-binding: t -*-
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;;; Commentary:
+;; Smoke test for `gloss-reload'. Clears the in-memory cache, then the
+;; next lookup repopulates from disk (handled by core's mtime path).
+
+;;; Code:
+
+(require 'ert)
+(require 'gloss)
+(require 'testutil-gloss)
+
+(ert-deftest test-gloss-reload-resets-and-repopulates-cache ()
+ "Smoke: reload clears the cache and the next lookup re-reads from disk."
+ (gloss-test--with-temp-glossary gloss-test--sample-content
+ (gloss-core-lookup "anaphora")
+ (should gloss-core--cache)
+ (gloss-reload)
+ (should (gloss-core-lookup "anaphora"))))
+
+(provide 'test-gloss--reload-smoke)
+;;; test-gloss--reload-smoke.el ends here