blob: 4e14df27a0dd3abf9d77272afeacc9aee7f159b4 (
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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
;;; test-chime-time-utilities.el --- Tests for time utility functions -*- 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.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Unit tests for chime time utility functions:
;; - chime-get-minutes-into-day
;; - chime-get-hours-minutes-from-time
;; - chime-set-hours-minutes-for-time
;;; Code:
(require 'test-bootstrap (expand-file-name "test-bootstrap.el"))
;; Load test utilities
(require 'testutil-general (expand-file-name "testutil-general.el"))
(require 'testutil-time (expand-file-name "testutil-time.el"))
;;;; Tests for chime-get-minutes-into-day
;;; Normal Cases
(ert-deftest test-chime-get-minutes-into-day-noon ()
"Noon (12:00) should be 720 minutes into the day."
(should (= 720 (chime-get-minutes-into-day "12:00"))))
(ert-deftest test-chime-get-minutes-into-day-afternoon ()
"14:30 should be 870 minutes into the day."
(should (= 870 (chime-get-minutes-into-day "14:30"))))
(ert-deftest test-chime-get-minutes-into-day-morning ()
"8:00 should be 480 minutes into the day."
(should (= 480 (chime-get-minutes-into-day "8:00"))))
;;; Boundary Cases
(ert-deftest test-chime-get-minutes-into-day-midnight ()
"Midnight (0:00) should be 0 minutes into the day."
(should (= 0 (chime-get-minutes-into-day "0:00"))))
(ert-deftest test-chime-get-minutes-into-day-end-of-day ()
"23:59 should be 1439 minutes into the day."
(should (= 1439 (chime-get-minutes-into-day "23:59"))))
(ert-deftest test-chime-get-minutes-into-day-one-minute-past-midnight ()
"0:01 should be 1 minute into the day."
(should (= 1 (chime-get-minutes-into-day "0:01"))))
;;;; Tests for chime-get-hours-minutes-from-time
;;; Normal Cases
(ert-deftest test-chime-get-hours-minutes-afternoon ()
"14:30 should return (14 30)."
(should (equal '(14 30) (chime-get-hours-minutes-from-time "14:30"))))
(ert-deftest test-chime-get-hours-minutes-morning ()
"8:00 should return (8 0)."
(should (equal '(8 0) (chime-get-hours-minutes-from-time "8:00"))))
(ert-deftest test-chime-get-hours-minutes-with-minutes ()
"9:45 should return (9 45)."
(should (equal '(9 45) (chime-get-hours-minutes-from-time "9:45"))))
;;; Boundary Cases
(ert-deftest test-chime-get-hours-minutes-midnight ()
"0:00 should return (0 0)."
(should (equal '(0 0) (chime-get-hours-minutes-from-time "0:00"))))
(ert-deftest test-chime-get-hours-minutes-exact-hour ()
"10:00 should return (10 0) with no leftover minutes."
(should (equal '(10 0) (chime-get-hours-minutes-from-time "10:00"))))
(ert-deftest test-chime-get-hours-minutes-end-of-day ()
"23:59 should return (23 59)."
(should (equal '(23 59) (chime-get-hours-minutes-from-time "23:59"))))
(ert-deftest test-chime-get-hours-minutes-noon ()
"12:00 should return (12 0)."
(should (equal '(12 0) (chime-get-hours-minutes-from-time "12:00"))))
;;;; Tests for chime-set-hours-minutes-for-time
;;; Normal Cases
(ert-deftest test-chime-set-hours-minutes-preserves-date ()
"Setting hours/minutes should preserve the date."
(let* ((base (test-time-tomorrow-at 10 0))
(result (chime-set-hours-minutes-for-time base 14 30))
(decoded (decode-time result))
(base-decoded (decode-time base)))
;; Date should be the same
(should (= (decoded-time-day base-decoded) (decoded-time-day decoded)))
(should (= (decoded-time-month base-decoded) (decoded-time-month decoded)))
(should (= (decoded-time-year base-decoded) (decoded-time-year decoded)))
;; Time should be changed
(should (= 14 (decoded-time-hour decoded)))
(should (= 30 (decoded-time-minute decoded)))
(should (= 0 (decoded-time-second decoded)))))
(ert-deftest test-chime-set-hours-minutes-changes-time ()
"Setting different hours/minutes should produce different time."
(let* ((base (test-time-tomorrow-at 10 0))
(result (chime-set-hours-minutes-for-time base 15 45))
(decoded (decode-time result)))
(should (= 15 (decoded-time-hour decoded)))
(should (= 45 (decoded-time-minute decoded)))))
;;; Boundary Cases
(ert-deftest test-chime-set-hours-minutes-midnight ()
"Setting to midnight (0, 0) should work."
(let* ((base (test-time-tomorrow-at 10 0))
(result (chime-set-hours-minutes-for-time base 0 0))
(decoded (decode-time result)))
(should (= 0 (decoded-time-hour decoded)))
(should (= 0 (decoded-time-minute decoded)))))
(ert-deftest test-chime-set-hours-minutes-end-of-day ()
"Setting to 23:59 should work."
(let* ((base (test-time-tomorrow-at 10 0))
(result (chime-set-hours-minutes-for-time base 23 59))
(decoded (decode-time result)))
(should (= 23 (decoded-time-hour decoded)))
(should (= 59 (decoded-time-minute decoded)))))
(ert-deftest test-chime-set-hours-minutes-roundtrip ()
"Extracting hours/minutes and setting them back should produce same time-of-day."
(let* ((base (test-time-tomorrow-at 14 30))
(hm (chime-get-hours-minutes-from-time "14:30"))
(result (chime-set-hours-minutes-for-time base (car hm) (cadr hm)))
(decoded (decode-time result)))
(should (= 14 (decoded-time-hour decoded)))
(should (= 30 (decoded-time-minute decoded)))))
(ert-deftest test-chime-set-hours-minutes-seconds-always-zero ()
"Seconds should always be set to 0 regardless of base time."
(let* ((base (test-time-now)) ;; may have non-zero seconds internally
(result (chime-set-hours-minutes-for-time base 10 0))
(decoded (decode-time result)))
(should (= 0 (decoded-time-second decoded)))))
(provide 'test-chime-time-utilities)
;;; test-chime-time-utilities.el ends here
|
