Better handling of some qt and gtk applications. Used Audacious for testing.

internal/app/event_password_caret_test.go

@@ -0,0 +1,51 @@
+// Copyright (c) 2026 Storm Dragon
+// Authors: Storm Dragon, Angus Kola
+// SPDX-License-Identifier: GPL-3.0-or-later
+
+package app
+
+import (
+	"context"
+	"log/slog"
+	"testing"
+	"time"
+
+	"git.stormux.org/storm/cthulhu/internal/atspi"
+)
+
+func TestUnfocusedPasswordCaretDuringSettingsCreation(t *testing.T) {
+	ctx, cancel := context.WithTimeout(context.Background(), time.Second)
+	defer cancel()
+	adapter := &fakeAdapter{events: make(chan atspi.Event, 8)}
+	speech := &fakeSpeechQueue{spoken: make(chan string, 8)}
+	done := make(chan struct{})
+	go func() {
+		defer close(done)
+		processEvents(ctx, slog.New(slog.DiscardHandler), speech, adapter, 0)
+	}()
+	defer func() { cancel(); <-done }()
+	focus := func(path, name, role string) {
+		source := atspi.NewSnapshot(path, name, role, "", "")
+		source.BusName = ":1.42"
+		adapter.events <- atspi.NewEvent(atspi.FocusEvent, source)
+	}
+	focus("/restart", "Restart interface", "button")
+	password := atspi.NewSnapshot("/proxy-password", "", "password text", "", "")
+	password.BusName = ":1.42"
+	adapter.events <- atspi.NewEvent(atspi.CaretEvent, password)
+	focus("/interface", "Interface", "combo box")
+	// A real focus event still announces the password field. The following
+	// button is an event-loop barrier, so stray caret speech cannot pass later.
+	focus("/proxy-password", "Proxy password", "password text")
+	focus("/close", "Close", "button")
+	for _, want := range []string{"Restart interface, button", "Interface, combo box", "Proxy password, password text", "Close, button"} {
+		select {
+		case got := <-speech.spoken:
+			if got != want {
+				t.Fatalf("speech = %q, want %q", got, want)
+			}
+		case <-ctx.Done():
+			t.Fatalf("missing speech %q", want)
+		}
+	}
+}