blob: 5da7aacd3a2a53503d0b8b0c389cb16cbe8af9ad (
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
|
;;; test-calendar-sync--parse-attendee-line.el --- Tests for attendee parsing -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for calendar-sync--parse-attendee-line function.
;; Parses single ATTENDEE line into plist (:cn NAME :email EMAIL :partstat STATUS :role ROLE).
;; Covers Normal, Boundary, and Error cases.
;;; Code:
(require 'ert)
(require 'testutil-calendar-sync)
(require 'calendar-sync)
;;; Normal Cases
(ert-deftest test-calendar-sync--parse-attendee-line-normal-accepted ()
"Test parsing attendee with PARTSTAT=ACCEPTED."
(let ((line "ATTENDEE;CN=Alice Smith;PARTSTAT=ACCEPTED;ROLE=REQ-PARTICIPANT:mailto:alice@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "Alice Smith" (plist-get result :cn)))
(should (string= "alice@example.com" (plist-get result :email)))
(should (string= "ACCEPTED" (plist-get result :partstat)))
(should (string= "REQ-PARTICIPANT" (plist-get result :role))))))
(ert-deftest test-calendar-sync--parse-attendee-line-normal-declined ()
"Test parsing attendee with PARTSTAT=DECLINED."
(let ((line "ATTENDEE;CN=Bob Jones;PARTSTAT=DECLINED:mailto:bob@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "Bob Jones" (plist-get result :cn)))
(should (string= "bob@example.com" (plist-get result :email)))
(should (string= "DECLINED" (plist-get result :partstat))))))
(ert-deftest test-calendar-sync--parse-attendee-line-normal-tentative ()
"Test parsing attendee with PARTSTAT=TENTATIVE."
(let ((line "ATTENDEE;CN=Carol;PARTSTAT=TENTATIVE:mailto:carol@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "TENTATIVE" (plist-get result :partstat))))))
(ert-deftest test-calendar-sync--parse-attendee-line-normal-needs-action ()
"Test parsing attendee with PARTSTAT=NEEDS-ACTION."
(let ((line "ATTENDEE;CN=Dave;PARTSTAT=NEEDS-ACTION:mailto:dave@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "NEEDS-ACTION" (plist-get result :partstat))))))
;;; Boundary Cases
(ert-deftest test-calendar-sync--parse-attendee-line-boundary-no-cn ()
"Test attendee without CN uses email as fallback."
(let ((line "ATTENDEE;PARTSTAT=ACCEPTED:mailto:noCN@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (null (plist-get result :cn)))
(should (string= "noCN@example.com" (plist-get result :email))))))
(ert-deftest test-calendar-sync--parse-attendee-line-boundary-no-partstat ()
"Test attendee without PARTSTAT."
(let ((line "ATTENDEE;CN=Eve:mailto:eve@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "Eve" (plist-get result :cn)))
(should (string= "eve@example.com" (plist-get result :email)))
(should (null (plist-get result :partstat))))))
(ert-deftest test-calendar-sync--parse-attendee-line-boundary-minimal ()
"Test minimal attendee line with just mailto."
(let ((line "ATTENDEE:mailto:min@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "min@example.com" (plist-get result :email))))))
(ert-deftest test-calendar-sync--parse-attendee-line-boundary-cutype-resource ()
"Test attendee with CUTYPE=RESOURCE."
(let ((line "ATTENDEE;CN=Room A;CUTYPE=RESOURCE;PARTSTAT=ACCEPTED:mailto:room-a@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "Room A" (plist-get result :cn)))
(should (string= "ACCEPTED" (plist-get result :partstat))))))
(ert-deftest test-calendar-sync--parse-attendee-line-boundary-extra-params ()
"Test attendee with extra unknown parameters."
(let ((line "ATTENDEE;CN=Frank;RSVP=TRUE;X-NUM-GUESTS=0;PARTSTAT=ACCEPTED:mailto:frank@example.com"))
(let ((result (calendar-sync--parse-attendee-line line)))
(should (string= "Frank" (plist-get result :cn)))
(should (string= "ACCEPTED" (plist-get result :partstat))))))
;;; Error Cases
(ert-deftest test-calendar-sync--parse-attendee-line-error-nil ()
"Test nil input returns nil."
(should (null (calendar-sync--parse-attendee-line nil))))
(ert-deftest test-calendar-sync--parse-attendee-line-error-empty ()
"Test empty string returns nil."
(should (null (calendar-sync--parse-attendee-line ""))))
(ert-deftest test-calendar-sync--parse-attendee-line-error-malformed ()
"Test malformed line returns nil."
(should (null (calendar-sync--parse-attendee-line "not an attendee line"))))
(provide 'test-calendar-sync--parse-attendee-line)
;;; test-calendar-sync--parse-attendee-line.el ends here
|
