From 61bfb79f2c55983697f87b9ba3961a9fb46de2fe Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
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
---
 tests/test-integration-mousetrap-mode-profiles.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'tests/test-integration-mousetrap-mode-profiles.el')

diff --git a/tests/test-integration-mousetrap-mode-profiles.el b/tests/test-integration-mousetrap-mode-profiles.el
index 6abd3ad2..741df442 100644
--- a/tests/test-integration-mousetrap-mode-profiles.el
+++ b/tests/test-integration-mousetrap-mode-profiles.el
@@ -55,26 +55,26 @@ Validates:
       (should (eq (lookup-key map (kbd "<wheel-up>")) nil))
       (should (eq (lookup-key map (kbd "<drag-mouse-1>")) nil)))))
 
-(ert-deftest test-integration-mousetrap-mode-profiles-dashboard-primary-click-only ()
-  "Test dashboard-mode gets primary-click profile.
+(ert-deftest test-integration-mousetrap-mode-profiles-dashboard-scroll-and-primary ()
+  "Test dashboard-mode gets scroll+primary profile.
 
 Components integrated:
 - mouse-trap--get-profile-for-mode (lookup)
 - mouse-trap--build-keymap (selective event binding)
 
 Validates:
-- Primary-click profile allows mouse-1
-- Blocks mouse-2/3 and scroll events"
+- scroll+primary profile allows mouse-1 and scrolling
+- Blocks mouse-2/3"
   (let ((major-mode 'dashboard-mode))
     (let ((profile (mouse-trap--get-profile-for-mode))
           (map (mouse-trap--build-keymap)))
-      (should (eq 'primary-click profile))
+      (should (eq 'scroll+primary profile))
       ;; mouse-1 allowed
       (should (eq (lookup-key map (kbd "<mouse-1>")) nil))
+      ;; scroll allowed
+      (should (eq (lookup-key map (kbd "<wheel-up>")) nil))
       ;; mouse-2/3 blocked
-      (should (eq (lookup-key map (kbd "<mouse-2>")) 'ignore))
-      ;; scroll blocked
-      (should (eq (lookup-key map (kbd "<wheel-up>")) 'ignore)))))
+      (should (eq (lookup-key map (kbd "<mouse-2>")) 'ignore)))))
 
 (ert-deftest test-integration-mousetrap-mode-profiles-emacs-lisp-uses-default-disabled ()
   "Test unmapped mode uses default disabled profile.
-- 
cgit v1.2.3