blob: e791ee5a4344c9a92cd787efbadb931ee52a28cc (
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
;;; test-wttrin--mode-line-stop.el --- Tests for wttrin--mode-line-stop -*- lexical-binding: t; -*-
;; Copyright (C) 2025 Craig Jennings
;;; Commentary:
;; Unit tests for wttrin--mode-line-stop function.
;; Tests that stopping mode-line display cleans up all state properly.
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)
;;; Setup and Teardown
(defun test-wttrin--mode-line-stop-setup ()
"Setup for mode-line-stop tests."
(testutil-wttrin-setup)
(setq wttrin-mode-line-string nil)
(setq wttrin--mode-line-cache nil)
(setq wttrin--mode-line-timer nil)
(setq wttrin--buffer-refresh-timer nil))
(defun test-wttrin--mode-line-stop-teardown ()
"Teardown for mode-line-stop tests."
(testutil-wttrin-teardown)
;; Cancel any real timers that may have been created
(when (timerp wttrin--mode-line-timer)
(cancel-timer wttrin--mode-line-timer))
(when (timerp wttrin--buffer-refresh-timer)
(cancel-timer wttrin--buffer-refresh-timer))
(setq wttrin-mode-line-string nil)
(setq wttrin--mode-line-cache nil)
(setq wttrin--mode-line-timer nil)
(setq wttrin--buffer-refresh-timer nil))
;;; Normal Cases
(ert-deftest test-wttrin--mode-line-stop-normal-clears-mode-line-string ()
"After stop, mode-line-string should be nil so nothing shows in the mode-line."
(test-wttrin--mode-line-stop-setup)
(unwind-protect
(progn
(setq wttrin-mode-line-string "some weather display")
(wttrin--mode-line-stop)
(should-not wttrin-mode-line-string))
(test-wttrin--mode-line-stop-teardown)))
(ert-deftest test-wttrin--mode-line-stop-normal-clears-mode-line-cache ()
"After stop, cached mode-line data should be discarded."
(test-wttrin--mode-line-stop-setup)
(unwind-protect
(progn
(setq wttrin--mode-line-cache (cons (float-time) "Paris: ☀️ +61°F Clear"))
(wttrin--mode-line-stop)
(should-not wttrin--mode-line-cache))
(test-wttrin--mode-line-stop-teardown)))
(ert-deftest test-wttrin--mode-line-stop-normal-cancels-mode-line-timer ()
"After stop, the mode-line refresh timer should be cancelled and nil."
(test-wttrin--mode-line-stop-setup)
(unwind-protect
(progn
;; Create a real timer so cancel-timer has something to work with
(setq wttrin--mode-line-timer
(run-at-time 99999 nil #'ignore))
(wttrin--mode-line-stop)
(should-not wttrin--mode-line-timer))
(test-wttrin--mode-line-stop-teardown)))
(ert-deftest test-wttrin--mode-line-stop-normal-cancels-buffer-refresh-timer ()
"After stop, the buffer-refresh timer should be cancelled and nil."
(test-wttrin--mode-line-stop-setup)
(unwind-protect
(progn
(setq wttrin--buffer-refresh-timer
(run-at-time 99999 nil #'ignore))
(wttrin--mode-line-stop)
(should-not wttrin--buffer-refresh-timer))
(test-wttrin--mode-line-stop-teardown)))
;;; Boundary Cases
(ert-deftest test-wttrin--mode-line-stop-boundary-safe-when-already-stopped ()
"Calling stop when everything is already nil should not error."
(test-wttrin--mode-line-stop-setup)
(unwind-protect
(progn
;; Everything is already nil from setup
(should-not wttrin--mode-line-timer)
(should-not wttrin--buffer-refresh-timer)
(should-not wttrin-mode-line-string)
(should-not wttrin--mode-line-cache)
;; This should not error
(wttrin--mode-line-stop)
;; Still nil
(should-not wttrin--mode-line-timer)
(should-not wttrin-mode-line-string))
(test-wttrin--mode-line-stop-teardown)))
(provide 'test-wttrin--mode-line-stop)
;;; test-wttrin--mode-line-stop.el ends here
|
