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
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
;;; test-integration-calendar-sync-event-details.el --- Integration tests for event details -*- lexical-binding: t; -*-
;;; Commentary:
;; Integration tests for the enhanced event details workflow.
;; Tests the complete flow from raw ICS with HTML description, attendees,
;; organizer through parse-ics to verify org output.
;;
;; Components integrated:
;; - calendar-sync--unescape-ics-text (ICS text unescaping)
;; - calendar-sync--strip-html (HTML tag removal)
;; - calendar-sync--clean-text (combined cleaning)
;; - calendar-sync--get-all-property-lines (multi-line property extraction)
;; - calendar-sync--parse-attendee-line (attendee parsing)
;; - calendar-sync--find-user-status (user status lookup)
;; - calendar-sync--parse-organizer (organizer extraction)
;; - calendar-sync--extract-meeting-url (meeting URL extraction)
;; - calendar-sync--parse-event (full event parsing)
;; - calendar-sync--event-to-org (org format output with property drawer)
;; - calendar-sync--parse-ics (full ICS pipeline)
;;; Code:
(require 'ert)
(require 'testutil-calendar-sync)
(require 'calendar-sync)
;;; Test Helpers
(defun test-integration-details--make-full-ics (start-time)
"Create ICS with HTML description, attendees, organizer, and meeting URL.
START-TIME is (year month day hour minute)."
(let ((dtstart (test-calendar-sync-ics-datetime start-time))
(dtend (test-calendar-sync-ics-datetime
(list (nth 0 start-time) (nth 1 start-time) (nth 2 start-time)
(1+ (nth 3 start-time)) (nth 4 start-time)))))
(concat "BEGIN:VCALENDAR\n"
"VERSION:2.0\n"
"PRODID:-//Google Inc//Google Calendar//EN\n"
"BEGIN:VEVENT\n"
"UID:full-test@example.com\n"
"SUMMARY:Team Planning\n"
"DTSTART:" dtstart "\n"
"DTEND:" dtend "\n"
"DESCRIPTION:Discuss Q1 goals<br>Review metrics\\, update roadmap\n"
"LOCATION:Conference Room B\n"
"ORGANIZER;CN=John Smith:mailto:john@example.com\n"
"ATTENDEE;CN=John Smith;PARTSTAT=ACCEPTED:mailto:john@example.com\n"
"ATTENDEE;CN=Craig Jennings;PARTSTAT=ACCEPTED:mailto:craigmartinjennings@gmail.com\n"
"ATTENDEE;CN=Alice;PARTSTAT=DECLINED:mailto:alice@example.com\n"
"X-GOOGLE-CONFERENCE:https://meet.google.com/abc-defg-hij\n"
"END:VEVENT\n"
"END:VCALENDAR")))
(defun test-integration-details--make-plain-ics (start-time)
"Create simple ICS without attendees or special properties.
START-TIME is (year month day hour minute)."
(let ((dtstart (test-calendar-sync-ics-datetime start-time))
(dtend (test-calendar-sync-ics-datetime
(list (nth 0 start-time) (nth 1 start-time) (nth 2 start-time)
(1+ (nth 3 start-time)) (nth 4 start-time)))))
(concat "BEGIN:VCALENDAR\n"
"VERSION:2.0\n"
"PRODID:-//Test//Test//EN\n"
"BEGIN:VEVENT\n"
"UID:plain-test@example.com\n"
"SUMMARY:Simple Reminder\n"
"DTSTART:" dtstart "\n"
"DTEND:" dtend "\n"
"END:VEVENT\n"
"END:VCALENDAR")))
(defun test-integration-details--make-recurring-with-attendees (start-time)
"Create ICS with recurring event that has attendees.
START-TIME is (year month day hour minute)."
(let ((dtstart (test-calendar-sync-ics-datetime start-time))
(dtend (test-calendar-sync-ics-datetime
(list (nth 0 start-time) (nth 1 start-time) (nth 2 start-time)
(1+ (nth 3 start-time)) (nth 4 start-time)))))
(concat "BEGIN:VCALENDAR\n"
"VERSION:2.0\n"
"PRODID:-//Test//Test//EN\n"
"BEGIN:VEVENT\n"
"UID:recurring-attendees@example.com\n"
"SUMMARY:Weekly Standup\n"
"DTSTART:" dtstart "\n"
"DTEND:" dtend "\n"
"RRULE:FREQ=WEEKLY;COUNT=3\n"
"ORGANIZER;CN=Manager:mailto:manager@example.com\n"
"ATTENDEE;CN=Craig;PARTSTAT=ACCEPTED:mailto:craigmartinjennings@gmail.com\n"
"LOCATION:Virtual\n"
"END:VEVENT\n"
"END:VCALENDAR")))
(defun test-integration-details--make-ics-escaped-location (start-time)
"Create ICS with ICS-escaped location field.
START-TIME is (year month day hour minute)."
(let ((dtstart (test-calendar-sync-ics-datetime start-time))
(dtend (test-calendar-sync-ics-datetime
(list (nth 0 start-time) (nth 1 start-time) (nth 2 start-time)
(1+ (nth 3 start-time)) (nth 4 start-time)))))
(concat "BEGIN:VCALENDAR\n"
"VERSION:2.0\n"
"PRODID:-//Test//Test//EN\n"
"BEGIN:VEVENT\n"
"UID:escaped-loc@example.com\n"
"SUMMARY:Offsite Meeting\n"
"DTSTART:" dtstart "\n"
"DTEND:" dtend "\n"
"LOCATION:123 Main St\\, Suite 400\\, New Orleans\\, LA\n"
"END:VEVENT\n"
"END:VCALENDAR")))
;;; Integration Tests
(ert-deftest test-integration-details-full-pipeline ()
"Test full pipeline: ICS with HTML + attendees + organizer → clean org output.
Verifies:
- HTML in description is cleaned
- ICS escapes in description are unescaped
- Property drawer contains LOCATION, ORGANIZER, STATUS, URL
- Description appears as body text after drawer"
(let* ((start-time (test-calendar-sync-time-days-from-now 7 14 0))
(ics (test-integration-details--make-full-ics start-time))
(calendar-sync-user-emails '("craigmartinjennings@gmail.com"))
(org-output (calendar-sync--parse-ics ics)))
(should org-output)
;; Summary present
(should (string-match-p "Team Planning" org-output))
;; Clean description (HTML <br> → newline, ICS \, → comma)
(should (string-match-p "Discuss Q1 goals" org-output))
(should (string-match-p "Review metrics, update roadmap" org-output))
(should-not (string-match-p "<br>" org-output))
;; Property drawer
(should (string-match-p ":PROPERTIES:" org-output))
(should (string-match-p ":LOCATION: Conference Room B" org-output))
(should (string-match-p ":ORGANIZER: John Smith" org-output))
(should (string-match-p ":STATUS: accepted" org-output))
(should (string-match-p ":URL: https://meet.google.com/abc-defg-hij" org-output))
(should (string-match-p ":END:" org-output))))
(ert-deftest test-integration-details-plain-event-no-drawer ()
"Test plain event without attendees/location produces no property drawer."
(let* ((start-time (test-calendar-sync-time-days-from-now 7 14 0))
(ics (test-integration-details--make-plain-ics start-time))
(org-output (calendar-sync--parse-ics ics)))
(should org-output)
(should (string-match-p "Simple Reminder" org-output))
(should-not (string-match-p ":PROPERTIES:" org-output))))
(ert-deftest test-integration-details-recurring-with-attendees ()
"Test recurring event with attendees flows details to expanded instances."
(let* ((start-time (test-calendar-sync-time-days-from-now 7 14 0))
(ics (test-integration-details--make-recurring-with-attendees start-time))
(calendar-sync-user-emails '("craigmartinjennings@gmail.com"))
(org-output (calendar-sync--parse-ics ics)))
(should org-output)
;; Should have multiple occurrences of Weekly Standup
(let ((count 0)
(pos 0))
(while (string-match "Weekly Standup" org-output pos)
(setq count (1+ count))
(setq pos (match-end 0)))
(should (>= count 2)))))
(ert-deftest test-integration-details-escaped-location ()
"Test ICS escapes in location are cleaned in org output."
(let* ((start-time (test-calendar-sync-time-days-from-now 7 14 0))
(ics (test-integration-details--make-ics-escaped-location start-time))
(org-output (calendar-sync--parse-ics ics)))
(should org-output)
(should (string-match-p "Offsite Meeting" org-output))
;; Location should have real commas, not escaped
(should (string-match-p "123 Main St, Suite 400" org-output))
(should-not (string-match-p "\\\\," org-output))))
(provide 'test-integration-calendar-sync-event-details)
;;; test-integration-calendar-sync-event-details.el ends here
|
