1 files changed, 42 insertions, 0 deletions
diff --git a/tests/test-calendar-sync--extract-email.el b/tests/test-calendar-sync--extract-email.el
new file mode 100644
index 00000000..75cc9e58
--- /dev/null
+++ b/tests/test-calendar-sync--extract-email.el
@@ -0,0 +1,42 @@
+;;; test-calendar-sync--extract-email.el --- Tests for email extraction -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for calendar-sync--extract-email.
+;; Extracts email address from mailto: values in iCal property lines.
+
+;;; Code:
+
+(require 'ert)
+(require 'testutil-calendar-sync)
+(require 'calendar-sync)
+
+;;; Normal Cases
+
+(ert-deftest test-calendar-sync--extract-email-normal-standard ()
+  "Extracts email from standard mailto: value."
+  (should (equal "craig@test.com"
+                 (calendar-sync--extract-email
+                  "ATTENDEE;CN=Craig:mailto:craig@test.com"))))
+
+(ert-deftest test-calendar-sync--extract-email-normal-organizer ()
+  "Works on ORGANIZER lines too."
+  (should (equal "boss@corp.com"
+                 (calendar-sync--extract-email
+                  "ORGANIZER;CN=Boss:mailto:boss@corp.com"))))
+
+;;; Boundary Cases
+
+(ert-deftest test-calendar-sync--extract-email-boundary-plus-addressing ()
+  "Handles plus-addressed emails."
+  (should (equal "user+tag@test.com"
+                 (calendar-sync--extract-email
+                  "ATTENDEE:mailto:user+tag@test.com"))))
+
+;;; Error Cases
+
+(ert-deftest test-calendar-sync--extract-email-error-no-mailto ()
+  "Line without mailto: returns nil."
+  (should (null (calendar-sync--extract-email "ATTENDEE;CN=Craig:urn:invalid"))))
+
+(provide 'test-calendar-sync--extract-email)
+;;; test-calendar-sync--extract-email.el ends here