feat(calendar-sync): add event details — attendees, organizer, status, URL

Add ICS text unescaping (RFC 5545), HTML stripping, and new fields
(attendees/status, organizer, meeting URL) to calendar-sync.el.
event-to-org now outputs org property drawers. 88 new tests across
10 test files, 146/146 pass. Also fix pre-existing test require
order and keymap guard issues.

1 files changed, 97 insertions, 0 deletions

diff --git a/tests/test-calendar-sync--parse-attendee-line.el b/tests/test-calendar-sync--parse-attendee-line.el
new file mode 100644
index 00000000..5da7aacd
--- /dev/null
+++ b/tests/test-calendar-sync--parse-attendee-line.el
@@ -0,0 +1,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