diff options
| author | Craig Jennings <c@cjennings.net> | 2026-07-20 23:50:59 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-07-20 23:50:59 -0500 |
| commit | 0fa283a3a828bd99260792a4fffd772b2cec5bc0 (patch) | |
| tree | 1d3ec717adaf98569e65aec8f08a2d5ee6a8e541 /tests/test-calendar-sync--expand-monthly.el | |
| parent | e83a055602ea2ad6cf8de5909bcbd8e44f2b5c22 (diff) | |
| download | dotemacs-0fa283a3a828bd99260792a4fffd772b2cec5bc0.tar.gz dotemacs-0fa283a3a828bd99260792a4fffd772b2cec5bc0.zip | |
test: make the 31st-recurrence and immediate-insert tests env-stable
The calendar test's range ended at midnight Dec 31, excluding that day's occurrence, and the org-roam test asserted special-variable-p, which answers differently in the package-loaded hook env versus bare batch (a bare defvar is a file-local declaration). The recurrence test now ends the range past the year and the insert test asserts the binding behaviorally.
Diffstat (limited to 'tests/test-calendar-sync--expand-monthly.el')
| -rw-r--r-- | tests/test-calendar-sync--expand-monthly.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/test-calendar-sync--expand-monthly.el b/tests/test-calendar-sync--expand-monthly.el index 75404937..41b196a7 100644 --- a/tests/test-calendar-sync--expand-monthly.el +++ b/tests/test-calendar-sync--expand-monthly.el @@ -278,8 +278,10 @@ instead of the RFC 5545 skip." :start '(2030 1 31 10 0) :end '(2030 1 31 11 0))) (rrule (list :freq 'monthly :interval 1)) + ;; End the range past Dec 31: the range end is midnight, so ending + ;; ON the 31st would exclude that day's 10:00 occurrence. (range (list (calendar-sync--date-to-time '(2030 1 1)) - (calendar-sync--date-to-time '(2030 12 31)))) + (calendar-sync--date-to-time '(2031 1 1)))) (occurrences (calendar-sync--expand-monthly base-event rrule range)) (months (mapcar (lambda (o) (nth 1 (plist-get o :start))) occurrences)) (days (mapcar (lambda (o) (nth 2 (plist-get o :start))) occurrences))) |