diff options
| -rw-r--r-- | modules/system-defaults.el | 8 | ||||
| -rw-r--r-- | tests/test-meta-native-comp-speed.el | 35 |
2 files changed, 42 insertions, 1 deletions
diff --git a/modules/system-defaults.el b/modules/system-defaults.el index c63ca009..7f369a5e 100644 --- a/modules/system-defaults.el +++ b/modules/system-defaults.el @@ -40,7 +40,13 @@ (with-eval-after-load 'comp-run (setopt native-comp-async-jobs-number 8) ; parallel compile workers - (setopt native-comp-speed 3) ; highest optimization level + ;; Speed 2, not 3: at speed 3 the native compiler emits direct calls for + ;; functions in the same compilation unit, bypassing the function cell. + ;; cl-letf mocks of a module's own helpers then silently run the real + ;; code — on 2026-07-01 `make test' launched real wf-recorder screen + ;; recordings this way. Speed 2 is the highest semantics-preserving + ;; level. Guarded by tests/test-meta-native-comp-speed.el. + (setopt native-comp-speed 2) (setopt native-comp-always-compile t)) ; always native-compile ;; -------------------------- Log Native Comp Warnings ------------------------- diff --git a/tests/test-meta-native-comp-speed.el b/tests/test-meta-native-comp-speed.el new file mode 100644 index 00000000..35a320e5 --- /dev/null +++ b/tests/test-meta-native-comp-speed.el @@ -0,0 +1,35 @@ +;;; test-meta-native-comp-speed.el --- Guard native-comp-speed at 2 -*- lexical-binding: t -*- + +;;; Commentary: +;; Meta test pinning `native-comp-speed' to 2 or lower. +;; +;; At speed 3 the native compiler emits direct calls for functions in the +;; same compilation unit, bypassing the symbol's function cell. Any test +;; that `cl-letf'-mocks a module's own internal helper then silently +;; exercises the real code instead of the mock. This bit for real on +;; 2026-07-01: the video-audio-recording tests mocked +;; `cj/recording--wayland-p' and `cj/recording--validate-system-audio', +;; the speed-3 eln called the real ones, and `make test' launched actual +;; wf-recorder screen recordings and rewrote the configured audio device +;; from live pactl state. +;; +;; Speed 2 is the highest level that preserves redefinition semantics. + +;;; Code: + +(require 'ert) + +(ert-deftest test-meta-native-comp-speed-preserves-redefinition-semantics () + "Normal: `native-comp-speed' stays at or below 2 after config loads. +Speed 3 breaks function-cell redirection for same-compilation-unit +calls, silently bypassing `cl-letf' mocks in the test suite." + (skip-unless (and (fboundp 'native-comp-available-p) + (native-comp-available-p))) + ;; system-defaults sets the value inside `with-eval-after-load' + ;; comp-run, so load comp-run first to make that form fire. + (require 'comp-run) + (require 'system-defaults) + (should (<= native-comp-speed 2))) + +(provide 'test-meta-native-comp-speed) +;;; test-meta-native-comp-speed.el ends here |