blob: d76eb5e35170a68ee124ddf751c2adc93d0d1b41 (
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
;;; test-wttrin--get-cache-entries-by-age.el --- Tests for cache entry sorting -*- lexical-binding: t; -*-
;; Copyright (C) 2024-2026 Craig Jennings
;;; Commentary:
;; Tests for wttrin--get-cache-entries-by-age helper function.
;; This function extracts cache entries sorted by age (oldest first).
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)
;;; Setup and Teardown
(defun test-wttrin--get-cache-entries-by-age-setup ()
"Setup for get-cache-entries-by-age tests."
(testutil-wttrin-setup))
(defun test-wttrin--get-cache-entries-by-age-teardown ()
"Teardown for get-cache-entries-by-age tests."
(testutil-wttrin-teardown))
;;; Normal Cases
(ert-deftest test-wttrin--get-cache-entries-by-age-normal-empty-cache-returns-empty-list ()
"Should return empty list when cache is empty."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(should (equal '() (wttrin--get-cache-entries-by-age)))
(test-wttrin--get-cache-entries-by-age-teardown)))
(ert-deftest test-wttrin--get-cache-entries-by-age-normal-single-entry-returns-one-element ()
"Should return single entry in list."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
(puthash "Paris|m" (cons 1000.0 "weather data") wttrin--cache)
(let ((result (wttrin--get-cache-entries-by-age)))
(should (= 1 (length result)))
(should (equal "Paris|m" (car (car result))))
(should (= 1000.0 (cdr (car result))))))
(test-wttrin--get-cache-entries-by-age-teardown)))
(ert-deftest test-wttrin--get-cache-entries-by-age-normal-multiple-entries-returns-sorted-oldest-first ()
"Should return entries sorted by timestamp, oldest first."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
;; Add entries with different timestamps (not in sorted order)
(puthash "New York|u" (cons 3000.0 "newest data") wttrin--cache)
(puthash "Paris|m" (cons 1000.0 "oldest data") wttrin--cache)
(puthash "Tokyo|m" (cons 2000.0 "middle data") wttrin--cache)
(let ((result (wttrin--get-cache-entries-by-age)))
(should (= 3 (length result)))
;; Check order: oldest to newest
(should (equal "Paris|m" (car (nth 0 result))))
(should (= 1000.0 (cdr (nth 0 result))))
(should (equal "Tokyo|m" (car (nth 1 result))))
(should (= 2000.0 (cdr (nth 1 result))))
(should (equal "New York|u" (car (nth 2 result))))
(should (= 3000.0 (cdr (nth 2 result))))))
(test-wttrin--get-cache-entries-by-age-teardown)))
(ert-deftest test-wttrin--get-cache-entries-by-age-normal-entry-format-returns-key-timestamp-pairs ()
"Should return (key . timestamp) pairs, not full cache values."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
;; Cache value is (timestamp . data)
(puthash "London|m" (cons 1500.0 "complete weather string with lots of data") wttrin--cache)
(let ((result (wttrin--get-cache-entries-by-age)))
(should (= 1 (length result)))
(let ((entry (car result)))
;; Entry should be (key . timestamp), not (key . (timestamp . data))
(should (equal "London|m" (car entry)))
(should (= 1500.0 (cdr entry)))
;; Should NOT contain the weather data string
(should-not (stringp (cdr entry))))))
(test-wttrin--get-cache-entries-by-age-teardown)))
;;; Boundary Cases
(ert-deftest test-wttrin--get-cache-entries-by-age-boundary-same-timestamp-returns-all-entries ()
"Should handle entries with identical timestamps."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
(puthash "Location1|m" (cons 1000.0 "data1") wttrin--cache)
(puthash "Location2|m" (cons 1000.0 "data2") wttrin--cache)
(puthash "Location3|m" (cons 1000.0 "data3") wttrin--cache)
(let ((result (wttrin--get-cache-entries-by-age)))
(should (= 3 (length result)))
;; All should have same timestamp
(should (= 1000.0 (cdr (nth 0 result))))
(should (= 1000.0 (cdr (nth 1 result))))
(should (= 1000.0 (cdr (nth 2 result))))))
(test-wttrin--get-cache-entries-by-age-teardown)))
(ert-deftest test-wttrin--get-cache-entries-by-age-boundary-float-timestamps-sorts-correctly ()
"Should correctly sort float timestamps with fractional seconds."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
(puthash "A|m" (cons 1000.123 "data") wttrin--cache)
(puthash "B|m" (cons 1000.789 "data") wttrin--cache)
(puthash "C|m" (cons 1000.456 "data") wttrin--cache)
(let ((result (wttrin--get-cache-entries-by-age)))
;; Should be sorted: 1000.123 < 1000.456 < 1000.789
(should (equal "A|m" (car (nth 0 result))))
(should (equal "C|m" (car (nth 1 result))))
(should (equal "B|m" (car (nth 2 result))))))
(test-wttrin--get-cache-entries-by-age-teardown)))
(ert-deftest test-wttrin--get-cache-entries-by-age-boundary-fifty-entries-returns-sorted ()
"Should handle cache at max capacity (50 entries)."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
;; Add 50 entries with timestamps 1000, 1001, 1002, ..., 1049
(dotimes (i 50)
(puthash (format "Location%d|m" i)
(cons (+ 1000.0 i) "data")
wttrin--cache))
(let ((result (wttrin--get-cache-entries-by-age)))
(should (= 50 (length result)))
;; First should be oldest (1000.0)
(should (= 1000.0 (cdr (car result))))
;; Last should be newest (1049.0)
(should (= 1049.0 (cdr (car (last result)))))))
(test-wttrin--get-cache-entries-by-age-teardown)))
;;; Error Cases
(ert-deftest test-wttrin--get-cache-entries-by-age-error-call-preserves-original-cache ()
"Should not modify the original cache hash table."
(test-wttrin--get-cache-entries-by-age-setup)
(unwind-protect
(progn
(puthash "Paris|m" (cons 1000.0 "data") wttrin--cache)
(puthash "Tokyo|m" (cons 2000.0 "data") wttrin--cache)
(let ((original-count (hash-table-count wttrin--cache)))
(wttrin--get-cache-entries-by-age)
;; Cache should still have same number of entries
(should (= original-count (hash-table-count wttrin--cache)))
;; Original entries should still be present
(should (gethash "Paris|m" wttrin--cache))
(should (gethash "Tokyo|m" wttrin--cache))))
(test-wttrin--get-cache-entries-by-age-teardown)))
(provide 'test-wttrin--get-cache-entries-by-age)
;;; test-wttrin--get-cache-entries-by-age.el ends here
|
