From 61bfb79f2c55983697f87b9ba3961a9fb46de2fe Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sun, 15 Feb 2026 19:58:15 -0600 Subject: test: add 86 new tests, fix 3 production bugs, fix 8 stale tests MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit New test coverage (86 tests across 7 files): - custom-case: 43 tests (title-case-region, upcase-dwim, downcase-dwim) - custom-datetime: 10 tests (all insert methods with mocked time) - config-utilities: 11 tests (format-build-time type branching) - org-capture-config: 22 tests (date-prefix + event-content) Production bugs found and fixed: - custom-case: title-case-region crashes on whitespace/punctuation-only input (char-after returns nil when no word chars found) - org-capture-config: browser branch missing empty-string guard on :initial plist value, producing stray newline in capture output - mousetrap-mode: keymap never registered in minor-mode-map-alist, so mode was silently not blocking any mouse events. Now pushes/removes on toggle. Additional fixes: - local-repository: fix cons cell syntax bug in localrepo-initialize (was calling vars as functions instead of using cons) - dupre-theme tests: update rainbow-delimiter color expectations - mousetrap tests: update dashboard profile (primary-click → scroll+primary) - music completion test: bind completion-ignore-case to prevent pollution - Delete redundant interactive recording test (duplicate of ERT version) Refactoring: - org-capture-config: extract cj/org-capture--date-prefix pure function from cj/org-capture-format-event-headline for testability Test checklist: todo.org updated to [11/25], removed untestable modules --- modules/local-repository.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'modules/local-repository.el') diff --git a/modules/local-repository.el b/modules/local-repository.el index c390ffbb..ab4daac9 100644 --- a/modules/local-repository.el +++ b/modules/local-repository.el @@ -43,11 +43,11 @@ keep them in source control.") "Add the repository to the package archives, then gives it a high priority." (unless (car-member localrepo-repository-id package-archives) (add-to-list 'package-archives - (localrepo-repository-id . localrepo-repository-location))) + (cons localrepo-repository-id localrepo-repository-location))) (unless (car-member localrepo-repository-id package-archive-priorities) (add-to-list 'package-archive-priorities - (localrepo-repository-id . localrepo-repository-priority)))) + (cons localrepo-repository-id localrepo-repository-priority)))) (provide 'local-repository) ;;; local-repository.el ends here. -- cgit v1.2.3