blob: 33ff2ba2e75177cb453535339fbdbd40f281bd55 (
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
49
50
51
52
53
54
55
56
57
|
;;; test-system-lib--ensure-marginalia-align.el --- Tests for marginalia category registration -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Custom completion categories (cj-music-file, cj-radio-station, and every
;; category passed to the system-lib table helpers) bypass marginalia, so
;; their annotations never get its right-alignment even with marginalia-align
;; set. The registration helper adds a builtin entry per category so the
;; table's own annotation function renders through marginalia's aligned field.
;;; Code:
(require 'ert)
;; The module's bare defvar marks this special only file-locally; declare it
;; here too so `let' binds dynamically (the scope-shadowing trap).
(defvar marginalia-annotator-registry)
(require 'system-lib)
;;; Normal Cases
(ert-deftest test-system-lib-ensure-marginalia-align-registers-category ()
"Normal: an unregistered category gains a builtin registry entry."
(let ((marginalia-annotator-registry '((file some-annotator builtin none))))
(cj/completion-ensure-marginalia-align 'cj-test-category)
(should (equal (assq 'cj-test-category marginalia-annotator-registry)
'(cj-test-category builtin none)))))
(ert-deftest test-system-lib-ensure-marginalia-align-idempotent ()
"Normal: registering the same category twice leaves one entry."
(let ((marginalia-annotator-registry '()))
(cj/completion-ensure-marginalia-align 'cj-test-category)
(cj/completion-ensure-marginalia-align 'cj-test-category)
(should (= 1 (length marginalia-annotator-registry)))))
;;; Boundary Cases
(ert-deftest test-system-lib-ensure-marginalia-align-preserves-existing-entry ()
"Boundary: a category with an existing (possibly custom) entry is untouched."
(let ((marginalia-annotator-registry '((cj-test-category my-custom-annotator))))
(cj/completion-ensure-marginalia-align 'cj-test-category)
(should (equal (assq 'cj-test-category marginalia-annotator-registry)
'(cj-test-category my-custom-annotator)))))
;;; Error Cases
(ert-deftest test-system-lib-ensure-marginalia-align-marginalia-absent-noop ()
"Error: without marginalia loaded (registry void) the helper is a silent
no-op -- annotations just stay unaligned, nothing breaks."
;; marginalia is not loadable in the batch environment, so the global
;; registry is genuinely void outside the `let's above.
(should-not (cj/completion-ensure-marginalia-align 'cj-test-category)))
(provide 'test-system-lib--ensure-marginalia-align)
;;; test-system-lib--ensure-marginalia-align.el ends here
|
