blob: 66ca754b679f75605213963386e97e7583d02076 (
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
|
;;; test-wttrin--reset-font-height.el --- Tests for the base-font reset -*- lexical-binding: t; -*-
;; Copyright (C) 2024-2026 Craig Jennings
;;; Commentary:
;; wttrin--reset-font-height re-applies the base wttrin-font-height, used for the
;; loading placeholder so it does not keep the previous weather's auto-fitted
;; (possibly capped) size.
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)
(ert-deftest test-wttrin--reset-font-height-normal-restores-base ()
"Normal: resetting restores the applied height to the base wttrin-font-height."
(with-temp-buffer
(setq-local wttrin--face-remap-cookie
(face-remap-add-relative 'default :height 200))
(setq-local wttrin--current-font-height 200)
(let ((wttrin-font-height 130))
(wttrin--reset-font-height)
(should (= 130 wttrin--current-font-height)))))
(ert-deftest test-wttrin--reset-font-height-boundary-no-cookie-is-noop ()
"Boundary: with no remap cookie, reset is a no-op and does not signal."
(with-temp-buffer
(setq-local wttrin--face-remap-cookie nil)
(setq-local wttrin--current-font-height 200)
(wttrin--reset-font-height)
(should (= 200 wttrin--current-font-height))))
(provide 'test-wttrin--reset-font-height)
;;; test-wttrin--reset-font-height.el ends here
|
