diff options
| author | Craig Jennings <c@cjennings.net> | 2026-02-17 19:14:14 -0600 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-02-17 19:14:14 -0600 |
| commit | 28b7e4cecadce207d532b8d42346c3823450a35f (patch) | |
| tree | 4d8772206e10c59762ae1e60343d4bc8dded77b5 /tests/test-wttrin-mode-line-startup-delay.el | |
| parent | bf989bb594680eb2e3b69f55752353aa33cb47bb (diff) | |
| download | emacs-wttrin-28b7e4cecadce207d532b8d42346c3823450a35f.tar.gz emacs-wttrin-28b7e4cecadce207d532b8d42346c3823450a35f.zip | |
refactor: tests: standardize naming, consolidate files, and expand testutil
- Expand testutil-wttrin.el with shared fixtures and macros
(testutil-wttrin-with-clean-weather-buffer,
testutil-wttrin-mock-http-response, sample ANSI/weather constants)
- Consolidate cache tests: port unique tests from cleanup-cache-constants
and cleanup-cache-refactored into cleanup-cache-if-needed, delete
obsolete files
- Extract startup-delay tests into dedicated file
- Add setup/teardown and (require 'testutil-wttrin) to all test files
- Rename all 160 tests to follow
test-<module>-<category>-<scenario>-<expected-result> convention
- Rename integration test file and add detailed docstrings
- Update Makefile glob to discover new integration test naming pattern
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
Diffstat (limited to 'tests/test-wttrin-mode-line-startup-delay.el')
| -rw-r--r-- | tests/test-wttrin-mode-line-startup-delay.el | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/tests/test-wttrin-mode-line-startup-delay.el b/tests/test-wttrin-mode-line-startup-delay.el new file mode 100644 index 0000000..af98b20 --- /dev/null +++ b/tests/test-wttrin-mode-line-startup-delay.el @@ -0,0 +1,56 @@ +;;; test-wttrin-mode-line-startup-delay.el --- Tests for wttrin-mode-line-startup-delay -*- lexical-binding: t; -*- + +;; Copyright (C) 2025 Craig Jennings + +;;; Commentary: + +;; Unit tests for wttrin-mode-line-startup-delay defcustom. +;; Tests that the startup delay variable exists and has reasonable defaults. + +;;; Code: + +(require 'ert) +(require 'wttrin) +(require 'testutil-wttrin) + +;;; Setup and Teardown + +(defun test-wttrin-mode-line-startup-delay-setup () + "Setup for startup delay tests." + (testutil-wttrin-setup)) + +(defun test-wttrin-mode-line-startup-delay-teardown () + "Teardown for startup delay tests." + (testutil-wttrin-teardown)) + +;;; Normal Cases + +(ert-deftest test-wttrin-mode-line-startup-delay-normal-exists () + "Test that wttrin-mode-line-startup-delay defcustom exists." + (test-wttrin-mode-line-startup-delay-setup) + (unwind-protect + (should (boundp 'wttrin-mode-line-startup-delay)) + (test-wttrin-mode-line-startup-delay-teardown))) + +(ert-deftest test-wttrin-mode-line-startup-delay-normal-is-number () + "Test that startup delay is a number." + (test-wttrin-mode-line-startup-delay-setup) + (unwind-protect + (should (numberp wttrin-mode-line-startup-delay)) + (test-wttrin-mode-line-startup-delay-teardown))) + +;;; Boundary Cases + +(ert-deftest test-wttrin-mode-line-startup-delay-boundary-reasonable-range () + "Test that startup delay default value is in reasonable range (1-10 seconds)." + (test-wttrin-mode-line-startup-delay-setup) + (unwind-protect + ;; Check the defcustom's standard value, not current runtime value + ;; (other tests may set it to 0 for faster testing) + (let ((default-value (eval (car (get 'wttrin-mode-line-startup-delay 'standard-value))))) + (should (>= default-value 1)) + (should (<= default-value 10))) + (test-wttrin-mode-line-startup-delay-teardown))) + +(provide 'test-wttrin-mode-line-startup-delay) +;;; test-wttrin-mode-line-startup-delay.el ends here |
