From ebd8b2ce83941386b196e663d8f8ba83d7ce44c1 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 14 Feb 2026 00:45:55 -0600 Subject: test: add ERT coverage for modeline-config and hugo-config Add 67 tests across 6 new test files for modeline and hugo modules. Refactor hugo-config: extract post-file-path and post-template helpers from interactive new-post function for testability. Update todo.org with test audit (31 modules), priority adjustments, and task cleanup. --- tests/test-modeline-config-string-truncate-p.el | 132 ++++++++++++++++++++++++ 1 file changed, 132 insertions(+) create mode 100644 tests/test-modeline-config-string-truncate-p.el (limited to 'tests/test-modeline-config-string-truncate-p.el') diff --git a/tests/test-modeline-config-string-truncate-p.el b/tests/test-modeline-config-string-truncate-p.el new file mode 100644 index 00000000..09378b0d --- /dev/null +++ b/tests/test-modeline-config-string-truncate-p.el @@ -0,0 +1,132 @@ +;;; test-modeline-config-string-truncate-p.el --- Tests for cj/modeline-string-truncate-p -*- lexical-binding: t; -*- + +;;; Commentary: +;; Tests for the cj/modeline-string-truncate-p function from modeline-config.el +;; +;; This function returns non-nil when ALL conditions are met: +;; 1. STR is a string +;; 2. STR is not empty +;; 3. Window is narrow (< 100 chars via cj/modeline-window-narrow-p) +;; 4. String length exceeds cj/modeline-string-truncate-length +;; 5. Not in a single-window frame (one-window-p returns nil) +;; +;; We mock window functions to isolate the logic. + +;;; Code: + +(require 'ert) + +;; Add modules directory to load path +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) + +;; Stub dependencies before loading the module +(unless (boundp 'cj/buffer-status-colors) + (defvar cj/buffer-status-colors + '((unmodified . "#FFFFFF") + (modified . "#00FF00") + (read-only . "#FF0000") + (overwrite . "#FFD700")))) + +(require 'modeline-config) + +;;; Test Helpers + +(defmacro with-window-state (narrow-p one-window-p &rest body) + "Execute BODY with mocked window state. +NARROW-P controls `cj/modeline-window-narrow-p' return value. +ONE-WINDOW-P controls `one-window-p' return value." + (declare (indent 2)) + `(cl-letf (((symbol-function 'cj/modeline-window-narrow-p) + (lambda () ,narrow-p)) + ((symbol-function 'one-window-p) + (lambda (&rest _args) ,one-window-p))) + ,@body)) + +;;; Normal Cases - All conditions met (should return non-nil) + +(ert-deftest test-modeline-config-string-truncate-p-normal-long-string-narrow-multi-window () + "Should return non-nil when string is long, window is narrow, and multiple windows." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should (cj/modeline-string-truncate-p "a-very-long-filename.el"))))) + +(ert-deftest test-modeline-config-string-truncate-p-normal-exactly-over-length () + "Should return non-nil when string is one char over truncation length." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should (cj/modeline-string-truncate-p "1234567890123"))))) ; 13 chars + +;;; Normal Cases - Conditions not met (should return nil) + +(ert-deftest test-modeline-config-string-truncate-p-normal-short-string () + "Should return nil when string is shorter than truncation length." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p "init.el"))))) + +(ert-deftest test-modeline-config-string-truncate-p-normal-wide-window () + "Should return nil when window is wide (not narrow)." + (with-window-state nil nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p "a-very-long-filename.el"))))) + +(ert-deftest test-modeline-config-string-truncate-p-normal-single-window () + "Should return nil when only one window is open." + (with-window-state t t + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p "a-very-long-filename.el"))))) + +;;; Boundary Cases + +(ert-deftest test-modeline-config-string-truncate-p-boundary-exact-length () + "Should return nil when string is exactly at truncation length." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p "123456789012"))))) ; exactly 12 + +(ert-deftest test-modeline-config-string-truncate-p-boundary-empty-string () + "Should return nil for empty string." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p ""))))) + +(ert-deftest test-modeline-config-string-truncate-p-boundary-single-char () + "Should return nil for single character string." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p "x"))))) + +(ert-deftest test-modeline-config-string-truncate-p-boundary-truncate-length-1 () + "Should return non-nil for any string > 1 when truncation length is 1." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 1)) + (should (cj/modeline-string-truncate-p "ab"))))) + +(ert-deftest test-modeline-config-string-truncate-p-boundary-truncate-length-0 () + "Should return non-nil for any non-empty string when truncation length is 0." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 0)) + (should (cj/modeline-string-truncate-p "a"))))) + +;;; Error Cases + +(ert-deftest test-modeline-config-string-truncate-p-error-nil-input () + "Should return nil for nil input." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p nil))))) + +(ert-deftest test-modeline-config-string-truncate-p-error-number-input () + "Should return nil for number input." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p 42))))) + +(ert-deftest test-modeline-config-string-truncate-p-error-symbol-input () + "Should return nil for symbol input." + (with-window-state t nil + (let ((cj/modeline-string-truncate-length 12)) + (should-not (cj/modeline-string-truncate-p 'some-symbol))))) + +(provide 'test-modeline-config-string-truncate-p) +;;; test-modeline-config-string-truncate-p.el ends here -- cgit v1.2.3