From 0be39bc9fa41f14f9d6d1a449f8f2b77a502c619 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 15 Nov 2025 14:08:47 -0600 Subject: fix(tests): Move cj/log-silently to system-lib.el, fix all test failures MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Consolidated cj/log-silently function to system-lib.el as the canonical location for low-level utility functions. This fixes 4 failing tests in video-audio-recording that couldn't find the function. Changes: - Move cj/log-silently to system-lib.el (from system-utils.el) - Remove duplicate definition from org-agenda-config-debug.el - Remove duplicate definition from system-utils.el - Add (require 'system-lib) to all modules using cj/log-silently: - video-audio-recording.el - org-agenda-config-debug.el - media-utils.el (also removed declare-function) - elfeed-config.el (replaced system-utils with system-lib) - wrap-up.el Test Results: - Before: 112/113 passing (4 video-audio-recording tests failing) - After: 113/113 passing ✓ All tests now pass with zero failures. Fixes TODO #809-895 (move cj/log-silently to system-lib.el) 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude --- modules/org-agenda-config-debug.el | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'modules/org-agenda-config-debug.el') diff --git a/modules/org-agenda-config-debug.el b/modules/org-agenda-config-debug.el index aded3b6a..a9c713a1 100644 --- a/modules/org-agenda-config-debug.el +++ b/modules/org-agenda-config-debug.el @@ -16,19 +16,7 @@ ;;; Code: (require 'user-constants) - -;; ---------------------------- Helper Functions ------------------------------- - -(defun cj/log-silently (format-string &rest args) - "Append formatted message to *Messages* buffer without echoing. -FORMAT-STRING and ARGS are passed to `format'. -This is a local copy of the pattern from system-utils.el." - (let ((inhibit-read-only t)) - (with-current-buffer (get-buffer-create "*Messages*") - (goto-char (point-max)) - (unless (bolp) (insert "\n")) - (insert (apply #'format format-string args)) - (unless (bolp) (insert "\n"))))) +(require 'system-lib) ;; ---------------------------- Debug Functions -------------------------------- -- cgit v1.2.3