blob: a372f4c1524a7cc460087ad29540a10455f9108a (
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
|
;;; test-wttrin--process-weather-content.el --- Tests for wttrin--process-weather-content -*- lexical-binding: t; -*-
;; Copyright (C) 2024 Craig Jennings
;;; Commentary:
;; Unit tests for wttrin--process-weather-content function.
;; Tests ANSI filtering and removal of verbose Location lines.
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'xterm-color)
;;; Normal Cases
(ert-deftest test-wttrin--process-weather-content-normal-plain-text ()
"Test processing plain text without ANSI codes or Location lines."
(let ((input "Weather: Sunny\nTemperature: 20°C"))
(should (string= input (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-normal-removes-location-line ()
"Test that Location line with coordinates is removed."
(let ((input "Weather: Sunny\n Location: Paris [48.8566, 2.3522]\nTemperature: 20°C")
(expected "Weather: Sunny\nTemperature: 20°C"))
(should (string= expected (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-normal-multiple-location-lines ()
"Test that multiple Location lines are all removed."
(let ((input "Location: Paris [48.8566, 2.3522]\nWeather: Sunny\n Location: Test [0, 0]\nTemp: 20°C")
(expected "Weather: Sunny\nTemp: 20°C"))
(should (string= expected (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-normal-with-ansi-codes ()
"Test that ANSI color codes are filtered by xterm-color-filter."
;; xterm-color-filter should process ANSI codes
;; We'll test that the function calls xterm-color-filter by checking
;; that basic ANSI codes are handled (this depends on xterm-color behavior)
(let* ((input-with-ansi "\x1b[31mRed Text\x1b[0m\nNormal Text")
(result (wttrin--process-weather-content input-with-ansi)))
;; xterm-color-filter adds text properties but returns the text content
(should (string-match-p "Red Text" result))
(should (string-match-p "Normal Text" result))))
;;; Boundary Cases
(ert-deftest test-wttrin--process-weather-content-boundary-empty-string ()
"Test processing empty string."
(should (string= "" (wttrin--process-weather-content ""))))
(ert-deftest test-wttrin--process-weather-content-boundary-only-location-line ()
"Test processing string with only a Location line removes it."
(let ((input " Location: Test [0, 0]\n")
(expected ""))
;; Input must have newline for delete-region to work correctly
(should (string= expected (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-boundary-location-without-brackets ()
"Test that Location line without brackets is not removed (doesn't match pattern)."
(let ((input "Location: Paris\nWeather: Sunny"))
;; Pattern requires [coordinates], so this line should remain
(should (string-match-p "Location: Paris" (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-boundary-location-case-insensitive ()
"Test that 'location' (lowercase) IS removed due to case-insensitive regex."
(let ((input "location: test [0, 0]\nWeather: Sunny"))
;; re-search-forward uses case-fold-search (defaults to t)
;; so lowercase 'location' matches 'Location' pattern
(should-not (string-match-p "location:" (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-boundary-whitespace-variations ()
"Test Location line with various whitespace patterns."
(let ((input " Location: Test [1, 2] \nWeather: Sunny")
(expected "Weather: Sunny"))
(should (string= expected (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-boundary-preserves-non-location-brackets ()
"Test that lines with brackets but not Location pattern are preserved."
(let ((input "Weather: [Sunny] 20°C\nWind: [Strong]"))
(should (string= input (wttrin--process-weather-content input)))))
;;; Error Cases
(ert-deftest test-wttrin--process-weather-content-error-handles-malformed-ansi ()
"Test that function handles malformed ANSI codes gracefully."
;; xterm-color-filter should handle this, but we verify no errors occur
(let ((input "\x1b[9999mInvalid ANSI\nNormal text"))
(should (stringp (wttrin--process-weather-content input)))))
(ert-deftest test-wttrin--process-weather-content-error-very-long-line ()
"Test processing very long line without errors."
(let ((long-line (make-string 10000 ?x)))
(should (string= long-line (wttrin--process-weather-content long-line)))))
(provide 'test-wttrin--process-weather-content)
;;; test-wttrin--process-weather-content.el ends here
|
