blob: 2f677991051b8842e3b0fb85836a57c56198d4aa (
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
|
;;; test-calendar-sync--extract-meeting-url.el --- Tests for meeting URL extraction -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for calendar-sync--extract-meeting-url function.
;; Extracts URL from X-GOOGLE-CONFERENCE (preferred) or URL property.
;; Covers Normal, Boundary, and Error cases.
;;; Code:
(require 'ert)
(require 'testutil-calendar-sync)
(require 'calendar-sync)
;;; Normal Cases
(ert-deftest test-calendar-sync--extract-meeting-url-normal-google-conference ()
"Test extracting X-GOOGLE-CONFERENCE URL."
(let ((event "BEGIN:VEVENT\nX-GOOGLE-CONFERENCE:https://meet.google.com/abc-defg-hij\nSUMMARY:Test\nEND:VEVENT"))
(should (string= "https://meet.google.com/abc-defg-hij"
(calendar-sync--extract-meeting-url event)))))
(ert-deftest test-calendar-sync--extract-meeting-url-normal-url-property ()
"Test extracting URL property."
(let ((event "BEGIN:VEVENT\nURL:https://zoom.us/j/123456\nSUMMARY:Test\nEND:VEVENT"))
(should (string= "https://zoom.us/j/123456"
(calendar-sync--extract-meeting-url event)))))
;;; Boundary Cases
(ert-deftest test-calendar-sync--extract-meeting-url-boundary-both-present ()
"Test X-GOOGLE-CONFERENCE is preferred when both present."
(let ((event "BEGIN:VEVENT\nURL:https://zoom.us/j/123456\nX-GOOGLE-CONFERENCE:https://meet.google.com/abc\nSUMMARY:Test\nEND:VEVENT"))
(should (string= "https://meet.google.com/abc"
(calendar-sync--extract-meeting-url event)))))
(ert-deftest test-calendar-sync--extract-meeting-url-boundary-neither-present ()
"Test returns nil when neither URL property exists."
(let ((event "BEGIN:VEVENT\nSUMMARY:Test\nDTSTART:20260210T140000Z\nEND:VEVENT"))
(should (null (calendar-sync--extract-meeting-url event)))))
(ert-deftest test-calendar-sync--extract-meeting-url-boundary-url-with-params ()
"Test URL property with parameters."
(let ((event "BEGIN:VEVENT\nURL;VALUE=URI:https://teams.microsoft.com/l/meetup-join/abc\nSUMMARY:Test\nEND:VEVENT"))
(should (string-match-p "teams.microsoft.com"
(calendar-sync--extract-meeting-url event)))))
;;; Error Cases
(ert-deftest test-calendar-sync--extract-meeting-url-error-nil-event ()
"Test nil event returns nil."
(should (null (calendar-sync--extract-meeting-url nil))))
(provide 'test-calendar-sync--extract-meeting-url)
;;; test-calendar-sync--extract-meeting-url.el ends here
|
