After commit c018f5fd29 Fenrir is being switched over to go. If you do not want to be part of the testing process, please switch to master.

internal/input/screen_range_test.go

@@ -0,0 +1,67 @@
+// Copyright (c) 2026 Storm Dragon
+// SPDX-License-Identifier: GPL-3.0-or-later
+
+package input
+
+import (
+	"testing"
+
+	"git.stormux.org/storm/fenrir/internal/command"
+)
+
+func TestScreenRangeChordsConsumePressHoldAndBothReleaseOrders(t *testing.T) {
+	for _, layout := range []string{"desktop", "laptop"} {
+		bindings, _, err := Load_bindings([]string{"../../config/keyboard/" + layout + ".toml"})
+		if err != nil {
+			t.Fatal(err)
+		}
+		for _, trial := range []struct {
+			desktop, laptop uint16
+			want            command.ID
+		}{
+			{KeyKP8, 23, command.ScreenBeforeCursor},
+			{KeyKP2, 51, command.ScreenAfterCursor},
+		} {
+			for _, modifierFirst := range []bool{false, true} {
+				for _, numLock := range []bool{false, true} {
+					router, err := New_router(bindings)
+					if err != nil {
+						t.Fatal(err)
+					}
+					keyCode := trial.desktop
+					modifiers := []uint16{KeyInsert}
+					if layout == "laptop" {
+						keyCode = trial.laptop
+						modifiers = append(modifiers, KeyShift)
+					}
+					for _, modifier := range modifiers {
+						router.Key(0, modifier, 1, numLock, false)
+					}
+					if got := router.Key(0, keyCode, 1, numLock, false); got.Command != trial.want || got.Forward || !got.Interrupt {
+						t.Fatal(layout, trial.want, numLock, got)
+					}
+					// Like ReadScreen, a held range key must not restart long speech.
+					if got := router.Key(0, keyCode, 2, numLock, false); got.Command != "" || got.Forward || got.Interrupt {
+						t.Fatal("range repeated", got)
+					}
+					releases := append([]uint16{keyCode}, modifiers...)
+					if modifierFirst {
+						releases = append(modifiers, keyCode)
+					}
+					for _, code := range releases {
+						// Ordinary Shift is forwarded as a balanced press/release.
+						if got := router.Key(0, code, 0, numLock, false); got.Forward != (code == KeyShift) || got.Command != "" {
+							t.Fatal("release leaked", got)
+						}
+					}
+					if router.Held(0) {
+						t.Fatal("stuck key after range command")
+					}
+					if got := router.Key(0, 30, 1, numLock, false); !got.Forward || got.Command != "" {
+						t.Fatal("ordinary typing after range chord", got)
+					}
+				}
+			}
+		}
+	}
+}