blob: b3c7eee954489d6a19940b550ca80bfdad9a8a7e (
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-wttrin-smoke.el --- Smoke tests for wttrin package loading -*- lexical-binding: t; -*-
;; Copyright (C) 2024 Craig Jennings
;;; Commentary:
;; Smoke tests to verify wttrin package loads correctly and core
;; infrastructure is available. These are sanity checks that catch:
;; - Package installation issues
;; - Missing dependencies
;; - Public API breakage
;; - Autoload cookie problems
;; - Package metadata issues
;;
;; These tests do NOT test functionality (that's in unit tests).
;; They only verify that functions/variables exist and have correct types.
;;; Code:
(require 'ert)
(require 'wttrin)
;;; Package Loading Tests
(ert-deftest test-wttrin-smoke-package-loads ()
"Test that wttrin package loads without errors.
If we got here, the package loaded successfully via (require 'wttrin)."
(should t))
(ert-deftest test-wttrin-smoke-provide-statement ()
"Test that wttrin feature is provided."
(should (featurep 'wttrin)))
;;; Dependency Tests
(ert-deftest test-wttrin-smoke-xterm-color-available ()
"Test that xterm-color dependency can be loaded when needed.
This is a REQUIRED dependency - wttrin cannot function without it."
(should (require 'xterm-color nil t)))
(ert-deftest test-wttrin-smoke-url-available ()
"Test that url library is available (built-in)."
(should (require 'url nil t)))
;;; Function Availability Tests
(ert-deftest test-wttrin-smoke-main-command-defined ()
"Test that main wttrin command is defined."
(should (fboundp 'wttrin)))
(ert-deftest test-wttrin-smoke-main-command-is-interactive ()
"Test that main wttrin command is interactive."
(should (commandp 'wttrin)))
(ert-deftest test-wttrin-smoke-wttrin-mode-defined ()
"Test that wttrin-mode is defined."
(should (fboundp 'wttrin-mode)))
(ert-deftest test-wttrin-smoke-mode-line-mode-defined ()
"Test that wttrin-mode-line-mode is defined."
(should (fboundp 'wttrin-mode-line-mode)))
(ert-deftest test-wttrin-smoke-clear-cache-defined ()
"Test that cache clear command is defined."
(should (fboundp 'wttrin-clear-cache)))
;;; Configuration Variable Tests
(ert-deftest test-wttrin-smoke-defcustoms-exist ()
"Test that key defcustom variables are defined."
(should (boundp 'wttrin-default-locations))
(should (boundp 'wttrin-unit-system))
(should (boundp 'wttrin-cache-ttl))
(should (boundp 'wttrin-cache-max-entries))
(should (boundp 'wttrin-favorite-location))
(should (boundp 'wttrin-mode-line-refresh-interval))
(should (boundp 'wttrin-mode-line-startup-delay)))
(ert-deftest test-wttrin-smoke-internal-vars-exist ()
"Test that internal variables are defined."
(should (boundp 'wttrin--cache))
(should (boundp 'wttrin--mode-line-map))
(should (boundp 'wttrin-mode-line-string)))
;;; Keymap Tests
(ert-deftest test-wttrin-smoke-wttrin-mode-map-exists ()
"Test that wttrin-mode keymap exists and is a keymap."
(should (boundp 'wttrin-mode-map))
(should (keymapp wttrin-mode-map)))
(ert-deftest test-wttrin-smoke-mode-line-map-exists ()
"Test that mode-line keymap exists and is a keymap."
(should (boundp 'wttrin--mode-line-map))
(should (keymapp wttrin--mode-line-map)))
;;; Package Metadata Tests
(ert-deftest test-wttrin-smoke-package-version ()
"Test that package has version information in correct format."
;; Verify the Version header exists in the file
(let ((version-line (with-temp-buffer
(insert-file-contents "wttrin.el" nil 0 500)
(goto-char (point-min))
(re-search-forward "^;; Version: \\([0-9.]+\\)" nil t)
(match-string 1))))
(should version-line)
(should (string-match-p "^[0-9]+\\.[0-9]+\\.[0-9]+$" version-line))))
(ert-deftest test-wttrin-smoke-autoload-cookies ()
"Test that key functions have autoload cookies in source."
;; Verify autoload cookies exist (they become effective after package install)
(let ((source (with-temp-buffer
(insert-file-contents "wttrin.el")
(buffer-string))))
;; Main command should have autoload
(should (string-match-p ";;;###autoload\n(defun wttrin" source))
;; Mode-line mode should have autoload
(should (string-match-p ";;;###autoload\n(define-minor-mode wttrin-mode-line-mode" source))))
(provide 'test-wttrin-smoke)
;;; test-wttrin-smoke.el ends here
|
