[TEST] Globaler GUI-Aus-Schalter fuer automatische Testlaeufe

Der VF-Linienzug-Wizard (*vfl-wizard-mode* Default T) oeffnete beim
automatischen Replay-Test DCL-Dialoge und blockierte den Lauf.

- ssg_core.lsp: globaler Schalter *ssg-gui-aus* + ssg-gui-p/-aus/-an
- vf_linienzug.lsp: neue vfl-wizard-mode-p (Wizard nur wenn *vfl-wizard-mode*
  UND GUI nicht abgeschaltet); ersetzt die direkten *vfl-wizard-mode*-Checks in
  vfl-in-string/-real/-int, vfl-winkel-live und vfl-wizard-aktiv (deckt damit
  auch alle vflw-gruppe-*-Dialoge ab). Bei GUI-aus fallen die Eingaben auf den
  getstring/getint/getreal-Pfad, den die Testrunner per Mock/Replay bedienen.
- test_linienzug.lsp: (ssg-gui-aus) vor dem Replay, (ssg-gui-an) danach (immer).
- test_run_all.lsp: GUI aus um den gesamten Batch, danach wieder an.

Alle Guards ueber atoms-family, damit aeltere Ladezustaende unveraendert
funktionieren. Paren-Balance geprueft.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-08-29 09:39:30 +02:00
parent 80804a321a
commit 8f133f69b0
4 changed files with 42 additions and 5 deletions
+13
View File
@@ -137,6 +137,19 @@
)
;; ------------------------------------------------------------
;; GUI-MODUS (fuer automatische Tests)
;; ------------------------------------------------------------
;; Globaler Schalter, um alle interaktiven Oberflaechen-Abfragen (DCL-Dialoge,
;; Wizard-Fenster) abzuschalten - dann laufen die Module ueber ihre Konsolen-
;; bzw. Nicht-GUI-Pfade, die von den Testrunnern per Mock-Eingabe/Replay
;; bedient werden. Default nil = GUI an (normaler Betrieb).
;; Test-Setup ruft (ssg-gui-aus) auf; ssg-gui-p fragt den Zustand ab.
(if (not (boundp '*ssg-gui-aus*)) (setq *ssg-gui-aus* nil))
(defun ssg-gui-p () (null *ssg-gui-aus*)) ;; T = GUI erlaubt
(defun ssg-gui-aus () (setq *ssg-gui-aus* T) (princ))
(defun ssg-gui-an () (setq *ssg-gui-aus* nil) (princ))
;; ------------------------------------------------------------
;; LISP-PFAD-ERMITTLUNG
;; ------------------------------------------------------------