blob: 651fb5c16a0ce55f99564d4cac1233fede155441 (
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
|
;;; test-wttrin--validate-weather-data.el --- Tests for wttrin--validate-weather-data -*- lexical-binding: t; -*-
;; Copyright (C) 2024 Craig Jennings
;;; Commentary:
;; Unit tests for wttrin--validate-weather-data function.
;; Tests validation of weather data strings for errors and nil values.
;;; Code:
(require 'ert)
(require 'wttrin)
;;; Normal Cases
(ert-deftest test-wttrin--validate-weather-data-normal-valid-weather-string ()
"Test that valid weather data string is accepted."
(let ((valid-weather "Weather: 20°C\nCondition: Sunny\nWind: 10 km/h"))
(should (wttrin--validate-weather-data valid-weather))))
(ert-deftest test-wttrin--validate-weather-data-normal-multiline-weather ()
"Test that multiline weather data is accepted."
(let ((weather "┌─────────────┐\n│ Weather │\n│ 20°C │\n└─────────────┘"))
(should (wttrin--validate-weather-data weather))))
(ert-deftest test-wttrin--validate-weather-data-normal-weather-with-unicode ()
"Test that weather data with Unicode characters is accepted."
(let ((weather "Temperature: 20°C ☀️\nWind: 15 km/h 💨"))
(should (wttrin--validate-weather-data weather))))
;;; Boundary Cases
(ert-deftest test-wttrin--validate-weather-data-boundary-empty-string ()
"Test that empty string is considered valid (though unusual)."
(should (wttrin--validate-weather-data "")))
(ert-deftest test-wttrin--validate-weather-data-boundary-whitespace-only ()
"Test that whitespace-only string is considered valid."
(should (wttrin--validate-weather-data " \n \t ")))
(ert-deftest test-wttrin--validate-weather-data-boundary-single-character ()
"Test that single character string is valid."
(should (wttrin--validate-weather-data "x")))
(ert-deftest test-wttrin--validate-weather-data-boundary-error-lowercase ()
"Test that lowercase 'error' is rejected (case-insensitive matching)."
;; string-match uses case-fold-search which defaults to t in Emacs
(should-not (wttrin--validate-weather-data "error: connection failed")))
(ert-deftest test-wttrin--validate-weather-data-boundary-error-in-middle ()
"Test that 'ERROR' anywhere in string causes rejection."
(should-not (wttrin--validate-weather-data "Weather: ERROR occurred while fetching")))
;;; Error Cases
(ert-deftest test-wttrin--validate-weather-data-error-nil-string ()
"Test that nil string is rejected."
(should-not (wttrin--validate-weather-data nil)))
(ert-deftest test-wttrin--validate-weather-data-error-uppercase-error ()
"Test that string containing 'ERROR' is rejected."
(should-not (wttrin--validate-weather-data "ERROR: Unable to fetch weather")))
(ert-deftest test-wttrin--validate-weather-data-error-error-at-start ()
"Test that 'ERROR' at start of string causes rejection."
(should-not (wttrin--validate-weather-data "ERROR 404")))
(ert-deftest test-wttrin--validate-weather-data-error-error-at-end ()
"Test that 'ERROR' at end of string causes rejection."
(should-not (wttrin--validate-weather-data "Network ERROR")))
(provide 'test-wttrin--validate-weather-data)
;;; test-wttrin--validate-weather-data.el ends here
|
