blob: 67e50cadd41c3cb6e57bcc92f6e828b4a218e67f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
;;; test-debug-wttrin-show-raw.el --- Tests for debug-wttrin-show-raw -*- lexical-binding: t; -*-
;; Copyright (C) 2025-2026 Craig Jennings
;;; Commentary:
;; Unit tests for debug-wttrin-show-raw function.
;; Tests that the debug display shows raw weather data with line numbers.
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)
;; Load wttrin-debug for the function under test
(require 'wttrin-debug
(expand-file-name "wttrin-debug.el"
(file-name-directory (locate-library "wttrin"))))
;;; Setup and Teardown
(defun test-debug-wttrin-show-raw-setup ()
"Setup for debug-wttrin-show-raw tests."
(testutil-wttrin-setup)
(when (get-buffer "*wttrin-debug*")
(kill-buffer "*wttrin-debug*")))
(defun test-debug-wttrin-show-raw-teardown ()
"Teardown for debug-wttrin-show-raw tests."
(testutil-wttrin-teardown)
(when (get-buffer "*wttrin-debug*")
(kill-buffer "*wttrin-debug*")))
;;; Normal Cases
(ert-deftest test-debug-wttrin-show-raw-normal-creates-debug-buffer ()
"Calling show-raw should create the *wttrin-debug* buffer."
(test-debug-wttrin-show-raw-setup)
(unwind-protect
(progn
(testutil-wttrin-mock-http-response "Line one\nLine two\nLine three"
(debug-wttrin-show-raw "Paris"))
(should (get-buffer "*wttrin-debug*")))
(test-debug-wttrin-show-raw-teardown)))
(ert-deftest test-debug-wttrin-show-raw-normal-adds-line-numbers ()
"Each line of raw data should be prefixed with its line number."
(test-debug-wttrin-show-raw-setup)
(unwind-protect
(progn
(testutil-wttrin-mock-http-response "Alpha\nBravo\nCharlie"
(debug-wttrin-show-raw "Paris"))
(with-current-buffer "*wttrin-debug*"
(let ((contents (buffer-string)))
(should (string-match-p "^ *1: Alpha" contents))
(should (string-match-p "^ *2: Bravo" contents))
(should (string-match-p "^ *3: Charlie" contents)))))
(test-debug-wttrin-show-raw-teardown)))
(ert-deftest test-debug-wttrin-show-raw-normal-fetches-correct-location ()
"The function should fetch weather for the specified location."
(test-debug-wttrin-show-raw-setup)
(unwind-protect
(let ((fetched-location nil))
(cl-letf (((symbol-function 'wttrin--get-cached-or-fetch)
(lambda (location callback)
(setq fetched-location location)
(funcall callback "data"))))
(debug-wttrin-show-raw "Berlin, DE")
(should (equal fetched-location "Berlin, DE"))))
(test-debug-wttrin-show-raw-teardown)))
;;; Boundary Cases
(ert-deftest test-debug-wttrin-show-raw-boundary-single-line ()
"Single-line response should get line number 1."
(test-debug-wttrin-show-raw-setup)
(unwind-protect
(progn
(testutil-wttrin-mock-http-response "Just one line"
(debug-wttrin-show-raw "Paris"))
(with-current-buffer "*wttrin-debug*"
(let ((contents (buffer-string)))
(should (string-match-p "^ *1: Just one line" contents)))))
(test-debug-wttrin-show-raw-teardown)))
;;; Error Cases
(ert-deftest test-debug-wttrin-show-raw-error-nil-response-should-not-crash ()
"When the fetch returns nil, the function should handle it gracefully."
(test-debug-wttrin-show-raw-setup)
(unwind-protect
(cl-letf (((symbol-function 'wttrin--get-cached-or-fetch)
(lambda (_location callback)
(funcall callback nil))))
;; Should not crash
(debug-wttrin-show-raw "BadLocation")
;; Buffer should exist even on error
(should (get-buffer "*wttrin-debug*")))
(test-debug-wttrin-show-raw-teardown)))
(ert-deftest test-debug-wttrin-show-raw-normal-always-fetches-fresh ()
"A debug command should always fetch from the API, not serve cached data.
When debugging, the user needs to see what the API currently returns."
(test-debug-wttrin-show-raw-setup)
(unwind-protect
(let ((force-refresh-was-set nil))
;; Seed cache so there IS data to serve
(testutil-wttrin-add-to-cache "Paris" "old cached data" 300)
(cl-letf (((symbol-function 'wttrin--get-cached-or-fetch)
(lambda (_location callback)
(setq force-refresh-was-set wttrin--force-refresh)
(funcall callback "fresh from API"))))
(debug-wttrin-show-raw "Paris")
;; Force-refresh should have been active during the fetch
(should force-refresh-was-set)))
(test-debug-wttrin-show-raw-teardown)))
(provide 'test-debug-wttrin-show-raw)
;;; test-debug-wttrin-show-raw.el ends here
|
