blob: 14af147754f55f1fd6d16b1f034dd0a2751cec11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
|
