summaryrefslogtreecommitdiff
path: root/tests/testutil-wttrin.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2025-11-04 07:56:31 -0600
committerCraig Jennings <c@cjennings.net>2025-11-04 07:56:31 -0600
commit6cf0aac96ae0abb455ee8525e0ede9a63f5974f3 (patch)
tree82212136eae5ba429223739dff3b6683e01c3331 /tests/testutil-wttrin.el
parent4d8973dcc5c3c3d043011e67c8d4e9d581df6a43 (diff)
downloademacs-wttrin-6cf0aac96ae0abb455ee8525e0ede9a63f5974f3.tar.gz
emacs-wttrin-6cf0aac96ae0abb455ee8525e0ede9a63f5974f3.zip
Add comprehensive ERT test suite and fix critical bugs
Session 1: Testing infrastructure and initial test coverage Bug fixes in wttrin.el: - Fix wttrin-additional-url-params to handle nil unit system - Remove incorrect callback parameter to url-retrieve-synchronously - Add nil buffer check for network failures - Strip HTTP headers before decoding response - Kill buffer after fetch to prevent memory leaks - Fix double concatenation of URL params in cache function - Add proper URL encoding via new wttrin--build-url function Refactoring: - Extract wttrin--build-url as pure, testable function - Separate URL building logic from network I/O Test infrastructure (33 tests, 100% passing): - tests/testutil-wttrin.el: Shared test utilities - tests/test-wttrin-additional-url-params.el: 7 tests - tests/test-wttrin--make-cache-key.el: 9 tests - tests/test-wttrin--build-url.el: 10 tests - tests/test-wttrin--cleanup-cache-if-needed.el: 7 tests Documentation: - docs/testing-plan.org: Comprehensive testing roadmap - docs/bugs.org: Bug analysis from code review - docs/NOTES.org: Session tracking and guidelines - docs/session-1-summary.org: Detailed session summary Next session: Cache workflow tests, parsing logic extraction, integration tests 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
Diffstat (limited to 'tests/testutil-wttrin.el')
-rw-r--r--tests/testutil-wttrin.el83
1 files changed, 83 insertions, 0 deletions
diff --git a/tests/testutil-wttrin.el b/tests/testutil-wttrin.el
new file mode 100644
index 0000000..0e109ad
--- /dev/null
+++ b/tests/testutil-wttrin.el
@@ -0,0 +1,83 @@
+;;; testutil-wttrin.el --- Test utilities for wttrin -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2025 Craig Jennings
+
+;;; Commentary:
+
+;; Shared test utilities for wttrin test suite.
+;; Provides helper functions, fixtures, and common setup/teardown functionality.
+
+;;; Code:
+
+(require 'ert)
+
+;;; Test Data Fixtures
+
+(defconst testutil-wttrin-sample-weather-response
+ "Weather report: Paris, France
+
+ \\ / Partly cloudy
+ _ /\"\".-. 22 °C
+ \\_( ). ↓ 15 km/h
+ /(___(__) 10 km
+ 0.0 mm"
+ "Sample weather response for testing parsing logic.")
+
+(defconst testutil-wttrin-sample-error-response
+ "ERROR: Unknown location; please try ~curl wttr.in/:help"
+ "Sample error response from wttr.in service.")
+
+;;; Cache Testing Helpers
+
+(defun testutil-wttrin-clear-cache ()
+ "Clear the wttrin cache for test isolation."
+ (clrhash wttrin--cache))
+
+(defun testutil-wttrin-add-to-cache (location data &optional age-seconds)
+ "Add DATA to cache for LOCATION, optionally aged by AGE-SECONDS."
+ (let* ((cache-key (wttrin--make-cache-key location))
+ (timestamp (if age-seconds
+ (- (float-time) age-seconds)
+ (float-time))))
+ (puthash cache-key (cons timestamp data) wttrin--cache)))
+
+(defun testutil-wttrin-cache-size ()
+ "Return the current number of entries in the cache."
+ (hash-table-count wttrin--cache))
+
+;;; Custom Variable Management
+
+(defmacro testutil-wttrin-with-unit-system (unit-system &rest body)
+ "Execute BODY with wttrin-unit-system temporarily set to UNIT-SYSTEM."
+ (declare (indent 1))
+ `(let ((wttrin-unit-system ,unit-system))
+ ,@body))
+
+(defmacro testutil-wttrin-with-cache-ttl (ttl &rest body)
+ "Execute BODY with wttrin-cache-ttl temporarily set to TTL."
+ (declare (indent 1))
+ `(let ((wttrin-cache-ttl ,ttl))
+ ,@body))
+
+(defmacro testutil-wttrin-with-cache-max (max-entries &rest body)
+ "Execute BODY with wttrin-cache-max-entries temporarily set to MAX-ENTRIES."
+ (declare (indent 1))
+ `(let ((wttrin-cache-max-entries ,max-entries))
+ ,@body))
+
+;;; Test Setup and Teardown
+
+(defun testutil-wttrin-setup ()
+ "Common setup for wttrin tests.
+Call this at the beginning of each test."
+ (testutil-wttrin-clear-cache)
+ (setq wttrin--force-refresh nil))
+
+(defun testutil-wttrin-teardown ()
+ "Common teardown for wttrin tests.
+Call this at the end of each test."
+ (testutil-wttrin-clear-cache)
+ (setq wttrin--force-refresh nil))
+
+(provide 'testutil-wttrin)
+;;; testutil-wttrin.el ends here