From b7cb1c51e5663419344d8b55766635801f3ee4c8 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Thu, 5 Feb 2026 15:13:57 -0600 Subject: =?UTF-8?q?feat(calendar-sync):=20add=20event=20details=20?= =?UTF-8?q?=E2=80=94=20attendees,=20organizer,=20status,=20URL?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- tests/test-calendar-sync--parse-attendee-line.el | 97 ++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100644 tests/test-calendar-sync--parse-attendee-line.el (limited to 'tests/test-calendar-sync--parse-attendee-line.el') 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 -- cgit v1.2.3