blob: 981a18577510037040ac5dca3620539926784115 (
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
|
;;; test-calendar-sync--get-exdates.el --- Tests for EXDATE extraction -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for calendar-sync--get-exdates function.
;; Tests extraction of EXDATE properties from VEVENT strings.
;; Following quality-engineer.org guidelines: one function per file.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "." (file-name-directory load-file-name)))
(add-to-list 'load-path (expand-file-name "../modules" (file-name-directory load-file-name)))
(require 'testutil-calendar-sync)
(require 'calendar-sync)
;;; Normal Cases
(ert-deftest test-calendar-sync--get-exdates-normal-single-returns-list ()
"Test extracting single EXDATE returns list with one value."
(let ((event "BEGIN:VEVENT
DTSTART:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE:20260210T130000
SUMMARY:Weekly Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (listp result))
(should (= 1 (length result)))
(should (string= "20260210T130000" (car result))))))
(ert-deftest test-calendar-sync--get-exdates-normal-multiple-returns-all ()
"Test extracting multiple EXDATEs returns all values."
(let ((event "BEGIN:VEVENT
DTSTART:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE:20260210T130000
EXDATE:20260217T130000
EXDATE:20260224T130000
SUMMARY:Weekly Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 3 (length result)))
(should (member "20260210T130000" result))
(should (member "20260217T130000" result))
(should (member "20260224T130000" result)))))
(ert-deftest test-calendar-sync--get-exdates-normal-with-tzid-returns-value ()
"Test extracting EXDATE with TZID parameter extracts value correctly."
(let ((event "BEGIN:VEVENT
DTSTART;TZID=America/New_York:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE;TZID=America/New_York:20260210T130000
SUMMARY:Weekly Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 1 (length result)))
(should (string= "20260210T130000" (car result))))))
(ert-deftest test-calendar-sync--get-exdates-normal-with-z-suffix-returns-value ()
"Test extracting UTC EXDATE with Z suffix."
(let ((event "BEGIN:VEVENT
DTSTART:20260203T180000Z
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE:20260210T180000Z
SUMMARY:Weekly UTC Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 1 (length result)))
(should (string= "20260210T180000Z" (car result))))))
;;; Boundary Cases
(ert-deftest test-calendar-sync--get-exdates-boundary-no-exdate-returns-nil ()
"Test that event without EXDATE returns nil."
(let ((event "BEGIN:VEVENT
DTSTART:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
SUMMARY:Weekly Meeting
END:VEVENT"))
(should (null (calendar-sync--get-exdates event)))))
(ert-deftest test-calendar-sync--get-exdates-boundary-date-only-returns-value ()
"Test extracting all-day EXDATE (date only, no time)."
(let ((event "BEGIN:VEVENT
DTSTART;VALUE=DATE:20260203
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE;VALUE=DATE:20260210
SUMMARY:All Day Event
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 1 (length result)))
(should (string= "20260210" (car result))))))
(ert-deftest test-calendar-sync--get-exdates-boundary-multiple-params-returns-value ()
"Test extracting EXDATE with VALUE=DATE-TIME and TZID parameters."
(let ((event "BEGIN:VEVENT
DTSTART;TZID=America/Chicago:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE;VALUE=DATE-TIME;TZID=America/Chicago:20260210T130000
SUMMARY:Multi-param Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 1 (length result)))
(should (string= "20260210T130000" (car result))))))
(ert-deftest test-calendar-sync--get-exdates-boundary-comma-separated-returns-all ()
"Boundary: comma-separated EXDATE values on one line are each returned.
RFC 5545 permits multiple datetimes per EXDATE line; missing the split
drops those exclusions, so cancelled instances resurrect in the agenda."
(let ((event "BEGIN:VEVENT
DTSTART:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE:20260210T130000,20260217T130000,20260224T130000
SUMMARY:Weekly Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 3 (length result)))
(should (member "20260210T130000" result))
(should (member "20260217T130000" result))
(should (member "20260224T130000" result)))))
(ert-deftest test-calendar-sync--get-exdates-boundary-comma-separated-with-tzid ()
"Boundary: comma-separated EXDATE values sharing a TZID are each returned."
(let ((event "BEGIN:VEVENT
DTSTART;TZID=America/New_York:20260203T130000
RRULE:FREQ=WEEKLY;BYDAY=TU
EXDATE;TZID=America/New_York:20260210T130000,20260217T130000
SUMMARY:Weekly Meeting
END:VEVENT"))
(let ((result (calendar-sync--get-exdates event)))
(should (= 2 (length result)))
(should (member "20260210T130000" result))
(should (member "20260217T130000" result)))))
;;; Error Cases
(ert-deftest test-calendar-sync--get-exdates-error-empty-string-returns-nil ()
"Test that empty string returns nil."
(should (null (calendar-sync--get-exdates ""))))
(ert-deftest test-calendar-sync--get-exdates-error-nil-input-returns-nil ()
"Test that nil input returns nil."
(should (null (calendar-sync--get-exdates nil))))
(ert-deftest test-calendar-sync--get-exdates-error-malformed-returns-nil ()
"Test that malformed event string returns nil."
(should (null (calendar-sync--get-exdates "not a vevent"))))
(provide 'test-calendar-sync--get-exdates)
;;; test-calendar-sync--get-exdates.el ends here
|
