diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-11 04:50:45 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-11 04:50:45 -0500 |
| commit | 21ec114def7df9aa61e43e8f2cee484ded772e72 (patch) | |
| tree | bcce37275249879f5fb32d879e19126efdacf2d4 /tests/test-chime-day-wide-notifications.el | |
| parent | a11f554fd533f2139cf6b9e592388a5385d4462b (diff) | |
| download | chime-21ec114def7df9aa61e43e8f2cee484ded772e72.tar.gz chime-21ec114def7df9aa61e43e8f2cee484ded772e72.zip | |
test: close coverage gaps to 99.88% line coverage
Five new test files cover branches the per-function suites missed: the day-wide notification pipeline, the jump-to-event navigation path (including the org-show-entry fallback for Org < 9.6), chime--stop's process-interrupt branch, chime--start's debug log, and the two async error branches in chime--fetch-and-process. The edge-coverage file mops up scattered one-line fallbacks: the day-wide-notification "today" path, the tooltip placeholder pass-through, timestamp-parse's no-context error message, log-silently's mid-line newline insert, the validation :error count, and record-async-failure's chime-debug hook.
Line coverage on chime.el goes from 97.1% to 99.88%, 823 of 824 coverable lines. The one remaining line is a pcase _ fallback the preceding regex can't reach.
Diffstat (limited to 'tests/test-chime-day-wide-notifications.el')
| -rw-r--r-- | tests/test-chime-day-wide-notifications.el | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/tests/test-chime-day-wide-notifications.el b/tests/test-chime-day-wide-notifications.el new file mode 100644 index 0000000..260abfc --- /dev/null +++ b/tests/test-chime-day-wide-notifications.el @@ -0,0 +1,80 @@ +;;; test-chime-day-wide-notifications.el --- Tests for chime--day-wide-notifications -*- lexical-binding: t; -*- + +;; Copyright (C) 2026 Craig Jennings + +;; Author: Craig Jennings <c@cjennings.net> + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;;; Commentary: + +;; Direct unit tests for `chime--day-wide-notifications', which combines the +;; day-wide filter, the notification-text builder, dedup, and severity +;; wrapping into a single pipeline. +;; +;; Mock-clock note: `with-test-time' replaces `current-time' with a lambda +;; that returns the captured base time. The base must be computed BEFORE +;; entering the macro, because `test-time-now' itself calls `current-time' +;; — passing `(test-time-now)' inside the macro causes infinite recursion. + +;;; Code: + +(require 'test-bootstrap (expand-file-name "test-bootstrap.el")) +(require 'testutil-time (expand-file-name "testutil-time.el")) + +(ert-deftest test-chime-day-wide-notifications-normal-wraps-with-medium-severity () + "Normal: each generated text is wrapped as (TEXT . \\='medium)." + (let* ((base (test-time-now)) + (today (test-time-today-at 0 0)) + (ts (test-timestamp-string today t)) + (event (chime--make-event (list (cons ts nil)) + "Birthday" + '((0 . medium)))) + (chime-day-wide-advance-notice nil) + (chime-show-any-overdue-with-day-wide-alerts t)) + (with-test-time base + (let ((result (chime--day-wide-notifications (list event)))) + (should (= 1 (length result))) + (should (eq 'medium (cdr (car result)))) + (should (stringp (car (car result)))) + (should (string-match-p "Birthday" (car (car result)))))))) + +(ert-deftest test-chime-day-wide-notifications-boundary-empty-events () + "Boundary: empty events list yields empty notification list." + (should (null (chime--day-wide-notifications '())))) + +(ert-deftest test-chime-day-wide-notifications-boundary-deduplicates-identical-text () + "Boundary: two events producing identical notification text collapse to one." + (let* ((base (test-time-now)) + (today (test-time-today-at 0 0)) + (ts (test-timestamp-string today t)) + (event1 (chime--make-event (list (cons ts nil)) + "Birthday" + '((0 . medium)))) + (event2 (chime--make-event (list (cons ts nil)) + "Birthday" + '((0 . medium)))) + (chime-day-wide-advance-notice nil) + (chime-show-any-overdue-with-day-wide-alerts t)) + (with-test-time base + (let ((result (chime--day-wide-notifications (list event1 event2)))) + (should (= 1 (length result))))))) + +(ert-deftest test-chime-day-wide-notifications-boundary-filters-non-day-wide-events () + "Boundary: events that don't pass the day-wide filter contribute nothing." + (let* ((base (test-time-now)) + (future (test-time-tomorrow-at 9 0)) + (ts (test-timestamp-string future)) + (event (chime--make-event (list (cons ts future)) + "Future Timed" + '((10 . medium)))) + (chime-day-wide-advance-notice nil) + (chime-show-any-overdue-with-day-wide-alerts t)) + (with-test-time base + (should (null (chime--day-wide-notifications (list event))))))) + +(provide 'test-chime-day-wide-notifications) +;;; test-chime-day-wide-notifications.el ends here |
