dotemacs/tests/test-keyboard-compat-setup.el, branch main My Emacs configuration https://git.cjennings.net/dotemacs/atom?h=main 2026-05-12T22:17:55+00:00 test(keyboard-compat): cover the terminal and GUI setup functions 2026-05-12T22:17:55+00:00 Craig Jennings c@cjennings.net 2026-05-12T22:17:55+00:00 urn:sha1:040038d42f82d48c2e6b57a0d4494d9aabf453a9 `cj/keyboard-compat-terminal-setup` (8 `define-key`s into `input-decode-map` for arrow escape sequences) and `cj/keyboard-compat-gui-setup` (18 `M-<UPPER>` → `M-S-<lower>` translations into `key-translation-map`) had no tests — that's the bulk of the module's executable lines. I added `tests/test-keyboard-compat-setup.el` — 7 ERT tests that `let`-bind those keymaps to fresh copies, stub `env-terminal-p` / `env-gui-p`, and check the decode/translate entries land, with completeness loops over all 8 arrow sequences and all 18 Meta-Shift letters, plus the gate-off boundary for each. `cj/--icon-blank-in-terminal` was already covered. `lookup-key` on an ESC-prefixed string can return a meta-prefix event count instead of nil, so the "no-op when not on a terminal" case asserts the keymap is still empty rather than checking individual lookups.