blob: 8ce9c137b58cdbed1ac1bf9b5f39e993c9628077 (
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
;;; test-chime-lifecycle.el --- Tests for chime--stop and chime--start -*- lexical-binding: t; -*-
;; Copyright (C) 2026 Craig Jennings
;; Author: Craig Jennings <c@cjennings.net>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;; Commentary:
;; Unit tests for the internal lifecycle entry points `chime--stop' and
;; `chime--start'. Tests cover branches not exercised by higher-level
;; mode-toggle tests: in-progress process cleanup and the debug-only
;; scheduling log line.
;;; Code:
(require 'test-bootstrap (expand-file-name "test-bootstrap.el"))
(require 'cl-lib)
(ert-deftest test-chime-stop-interrupts-running-process ()
"Normal: when chime--process is set, `chime--stop' interrupts it and clears the var."
(let ((interrupted nil)
(chime--timer nil)
(chime--process 'fake-process)
(chime--validation-done t)
(chime--validation-retry-count 5))
(cl-letf (((symbol-function 'interrupt-process)
(lambda (proc) (setq interrupted proc))))
(chime--stop))
(should (eq 'fake-process interrupted))
(should (null chime--process))
(should-not chime--validation-done)
(should (= 0 chime--validation-retry-count))))
(ert-deftest test-chime-stop-no-process-skips-interrupt ()
"Boundary: with chime--process nil, `interrupt-process' is never called."
(let ((interrupted nil)
(chime--timer nil)
(chime--process nil)
(chime--validation-done t)
(chime--validation-retry-count 5))
(cl-letf (((symbol-function 'interrupt-process)
(lambda (proc) (setq interrupted proc))))
(chime--stop))
(should (null interrupted))
(should-not chime--validation-done)
(should (= 0 chime--validation-retry-count))))
(ert-deftest test-chime-start-logs-debug-message-when-feature-loaded ()
"Normal: with the chime-debug feature loaded, start emits a scheduling log line."
(let ((logged nil)
(chime--timer nil)
(chime--process nil))
(cl-letf (((symbol-function 'featurep)
(lambda (feat &rest _) (eq feat 'chime-debug)))
((symbol-function 'run-at-time)
(lambda (&rest _) 'fake-timer))
((symbol-function 'chime--log-silently)
(lambda (fmt &rest args)
(push (apply #'format fmt args) logged))))
(chime--start))
(should (cl-some (lambda (m) (string-match-p "Scheduling first check" m))
logged))
(should (eq 'fake-timer chime--timer))))
(ert-deftest test-chime-start-skips-debug-log-when-feature-absent ()
"Boundary: without the chime-debug feature loaded, no log line is emitted."
(let ((logged nil)
(chime--timer nil)
(chime--process nil))
(cl-letf (((symbol-function 'featurep)
(lambda (feat &rest _) (not (eq feat 'chime-debug))))
((symbol-function 'run-at-time)
(lambda (&rest _) 'fake-timer))
((symbol-function 'chime--log-silently)
(lambda (fmt &rest args)
(push (apply #'format fmt args) logged))))
(chime--start))
(should (null logged))
(should (eq 'fake-timer chime--timer))))
(provide 'test-chime-lifecycle)
;;; test-chime-lifecycle.el ends here
|
