blob: cbadf2f996767cb6f4ad7c37504f868fbcf0905a (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
;;; test-gloss-display--show-entry-smoke.el --- Smoke test for gloss-display-show-entry -*- lexical-binding: t -*-
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Commentary:
;; Smoke test for `gloss-display-show-entry'. Exercises the side-buffer
;; setup end to end: buffer creation, content rendering, mode activation,
;; and the read-only invariant. Per the design and project testing rules,
;; framework primitives like `display-buffer' and major-mode mechanics are
;; not re-tested.
;;; Code:
(require 'ert)
(require 'cl-lib)
(require 'gloss-display)
(defmacro gloss-test--with-display-buffer-mocked (&rest body)
"Run BODY with `display-buffer' replaced by a no-op.
Avoids opening a real side window during batch tests, while still letting
`gloss-display-show-entry' populate and configure the entry buffer."
(declare (indent 0) (debug t))
`(cl-letf (((symbol-function 'display-buffer)
(lambda (buffer &rest _args) (get-buffer buffer))))
,@body))
(ert-deftest test-gloss-display-show-entry-creates-buffer-with-mode-and-content ()
"Smoke: show-entry creates a named buffer in `gloss-mode' with the entry."
(gloss-test--with-display-buffer-mocked
(unwind-protect
(let ((buf (gloss-display-show-entry
"anaphora"
"Reference to something earlier in the discourse.")))
(should (buffer-live-p buf))
(with-current-buffer buf
(should (derived-mode-p 'gloss-mode))
(should buffer-read-only)
(let ((contents (buffer-substring-no-properties
(point-min) (point-max))))
(should (string-match-p "anaphora" contents))
(should (string-match-p "Reference to something earlier"
contents)))))
(when-let ((buf (get-buffer "*gloss: anaphora*")))
(let ((kill-buffer-query-functions nil))
(kill-buffer buf))))))
(provide 'test-gloss-display--show-entry-smoke)
;;; test-gloss-display--show-entry-smoke.el ends here
|
