blob: 21c09f51f49295efa83b432f3ed9750700909ae7 (
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
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
|
;;; test-calendar-sync--api-command.el --- Tests for API command builder -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for the Google Calendar API fetch path's pure helpers:
;; `calendar-sync--api-script' (resolves the helper script path) and
;; `calendar-sync--api-command' (builds the make-process argument list).
;; Covers Normal, Boundary, and Error cases.
;;; Code:
(require 'ert)
(require 'calendar-sync)
;;; calendar-sync--api-script
(ert-deftest test-calendar-sync--api-script-normal-resolves-to-helper ()
"Normal: the script path ends with the helper filename and is absolute."
(let ((path (calendar-sync--api-script)))
(should (file-name-absolute-p path))
(should (string-suffix-p "scripts/calendar_sync_api.py" path))))
(ert-deftest test-calendar-sync--api-script-normal-no-dotdot ()
"Normal: the resolved path is collapsed (no literal ../ segment)."
(let ((path (calendar-sync--api-script)))
(should-not (string-match-p "\\.\\./" path))))
;;; calendar-sync--api-command — Normal
(ert-deftest test-calendar-sync--api-command-normal-structure ()
"Normal: command starts with the python binary + script, then the flags."
(let ((calendar-sync-python-command "python3")
(calendar-sync-past-months 3)
(calendar-sync-future-months 12)
(calendar-sync-skip-declined t))
(let ((cmd (calendar-sync--api-command "work" "primary" "/tmp/out.org")))
(should (equal (nth 0 cmd) "python3"))
(should (string-suffix-p "calendar_sync_api.py" (nth 1 cmd)))
(should (member "--account" cmd))
(should (member "work" cmd))
(should (member "--calendar-id" cmd))
(should (member "primary" cmd))
(should (member "--output" cmd))
(should (member "/tmp/out.org" cmd)))))
(ert-deftest test-calendar-sync--api-command-normal-flag-pairing ()
"Normal: each value immediately follows its flag."
(let ((calendar-sync-python-command "python3")
(calendar-sync-skip-declined t))
(let ((cmd (calendar-sync--api-command "personal" "abc123" "/tmp/gcal.org")))
(should (equal "personal" (nth (1+ (cl-position "--account" cmd :test #'equal)) cmd)))
(should (equal "abc123" (nth (1+ (cl-position "--calendar-id" cmd :test #'equal)) cmd)))
(should (equal "/tmp/gcal.org" (nth (1+ (cl-position "--output" cmd :test #'equal)) cmd))))))
(ert-deftest test-calendar-sync--api-command-normal-window-from-defvars ()
"Normal: past/future month flags reflect the configured defvars."
(let ((calendar-sync-python-command "python3")
(calendar-sync-past-months 6)
(calendar-sync-future-months 9)
(calendar-sync-skip-declined t))
(let ((cmd (calendar-sync--api-command "work" "primary" "/tmp/out.org")))
(should (equal "6" (nth (1+ (cl-position "--past-months" cmd :test #'equal)) cmd)))
(should (equal "9" (nth (1+ (cl-position "--future-months" cmd :test #'equal)) cmd))))))
(ert-deftest test-calendar-sync--api-command-normal-honors-python-command ()
"Normal: a custom python command is used as argv[0]."
(let ((calendar-sync-python-command "/usr/bin/python3.14")
(calendar-sync-skip-declined t))
(let ((cmd (calendar-sync--api-command "work" "primary" "/tmp/out.org")))
(should (equal "/usr/bin/python3.14" (nth 0 cmd))))))
;;; calendar-sync--api-command — Boundary (declined toggle)
(ert-deftest test-calendar-sync--api-command-boundary-skip-declined-omits-flag ()
"Boundary: with skip-declined on (default), --keep-declined is absent.
The helper filters declines by default, matching the .ics path."
(let ((calendar-sync-python-command "python3")
(calendar-sync-skip-declined t))
(let ((cmd (calendar-sync--api-command "work" "primary" "/tmp/out.org")))
(should-not (member "--keep-declined" cmd)))))
(ert-deftest test-calendar-sync--api-command-boundary-keep-declined-adds-flag ()
"Boundary: with skip-declined nil, --keep-declined is passed through.
This keeps the API path honoring the same toggle as the parser path."
(let ((calendar-sync-python-command "python3")
(calendar-sync-skip-declined nil))
(let ((cmd (calendar-sync--api-command "work" "primary" "/tmp/out.org")))
(should (member "--keep-declined" cmd)))))
;;; calendar-sync--api-command — Error
(ert-deftest test-calendar-sync--api-command-error-returns-string-list ()
"Error: every element of the command list is a string (make-process safe)."
(let ((calendar-sync-python-command "python3")
(calendar-sync-skip-declined nil))
(let ((cmd (calendar-sync--api-command "work" "primary" "/tmp/out.org")))
(should (cl-every #'stringp cmd)))))
(provide 'test-calendar-sync--api-command)
;;; test-calendar-sync--api-command.el ends here
|
