blob: 1e2194b01992f49a9768fe905a7006a2cf734d99 (
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
|
;;; test-wttrin-debug-aliases.el --- Tests for obsolete debug aliases -*- lexical-binding: t; -*-
;; Copyright (C) 2026 Craig Jennings
;;; Commentary:
;; The four `debug-wttrin-*' names were renamed to `wttrin-debug-*' in
;; 0.4.0 to follow the package-prefix convention. The old names remain
;; as obsolete aliases so existing keybindings keep working. These tests
;; verify each alias resolves to the new function and is marked obsolete
;; with the expected target and version.
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)
(require 'wttrin-debug
(expand-file-name "wttrin-debug.el"
(file-name-directory (locate-library "wttrin"))))
(defconst test-wttrin-debug-aliases-pairs
'((debug-wttrin-show-raw . wttrin-debug-show-raw)
(debug-wttrin-enable . wttrin-debug-enable)
(debug-wttrin-disable . wttrin-debug-disable)
(debug-wttrin-mode-line . wttrin-debug-mode-line))
"Old-name to new-name pairs for the renamed debug functions.")
;;; Normal Cases
(ert-deftest test-wttrin-debug-aliases-normal-each-old-name-resolves-to-new ()
"Every old name is fboundp and indirects to its new name."
(dolist (pair test-wttrin-debug-aliases-pairs)
(let ((old (car pair))
(new (cdr pair)))
(should (fboundp old))
(should (eq (indirect-function old) (symbol-function new))))))
(ert-deftest test-wttrin-debug-aliases-normal-each-old-name-marked-obsolete ()
"Every old name has byte-obsolete-info pointing at the new name and 0.4.0."
(dolist (pair test-wttrin-debug-aliases-pairs)
(let* ((old (car pair))
(new (cdr pair))
(info (get old 'byte-obsolete-info)))
(should info)
;; byte-obsolete-info is (CURRENT-NAME HANDLER WHEN)
(should (eq new (car info)))
(should (string= "0.4.0" (nth 2 info))))))
(provide 'test-wttrin-debug-aliases)
;;; test-wttrin-debug-aliases.el ends here
|
