From a3a807c422f5a0c3aa87e33d95da1c9e1e5d2b04 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Sat, 29 Aug 2026 10:01:00 +0200 Subject: [PATCH] [TEST] hundm05 im Gesamttest per disabled-Flag deaktivieren hundm05 funktioniert noch nicht - im Gesamtlauf (SSG_RUN_ALL_TESTS) erstmal abschalten, ohne den Eintrag zu loeschen. - alltests.json: hundm05 bekommt "disabled": true - test_run_all.lsp: alltests:load liest das Flag; der foreach ueberspringt deaktivierte Eintraege komplett (kein Bauen/Speichern/Export) und gibt nur einen Hinweis auf der Konsole aus ("[DEAKTIVIERT ... uebersprungen]"). Reaktivieren spaeter: Flag in alltests.json entfernen. Co-Authored-By: Claude Opus 4.8 (1M context) --- tests/alltests.json | 2 +- tests/test_run_all.lsp | 16 ++++++++++++++-- 2 files changed, 15 insertions(+), 3 deletions(-) diff --git a/tests/alltests.json b/tests/alltests.json index 6d54e87..8abaf0e 100644 --- a/tests/alltests.json +++ b/tests/alltests.json @@ -7,5 +7,5 @@ { "name": "omniflo_strecke", "save": "dxf", "module": "OmniModulInsert" }, { "name": "gefaellestrecke", "save": "dwg", "module": "Gefaellestrecke" }, { "name": "mubea", "save": "dxf", "module": "KreiselInsert" }, - { "name": "hundm05", "save": "dxf", "module": "KreiselInsert" } + { "name": "hundm05", "save": "dxf", "module": "KreiselInsert", "disabled": true } ] diff --git a/tests/test_run_all.lsp b/tests/test_run_all.lsp index 7d4abdf..ba7c2ca 100644 --- a/tests/test_run_all.lsp +++ b/tests/test_run_all.lsp @@ -90,7 +90,7 @@ ;; Erwartet ein JSON-Array, je Zeile ein Objekt: { "name": "...", "save": "..." } ;; "save" kann "dxf", "dwg", null oder fehlen (= kein Speichern). ;; Rueckgabe: Liste von Assoc-Listen (("name" . "kreisel") ("save" . "dxf")) -(defun alltests:load (tests-pfad / json-datei f zeile ergebnis name save-fmt module) +(defun alltests:load (tests-pfad / json-datei f zeile ergebnis name save-fmt module disabled) (setq json-datei (strcat tests-pfad "/alltests.json")) (if (not (findfile json-datei)) (progn @@ -113,9 +113,13 @@ (setq name (alltests:get-str zeile "name")) (setq save-fmt (alltests:get-str zeile "save")) (setq module (alltests:get-str zeile "module")) + ;; "disabled": true schaltet einen Test-Eintrag ab (JSON-Boolean, + ;; daher direkte Textsuche statt alltests:get-str fuer Strings). + (setq disabled (if (vl-string-search "\"disabled\": true" zeile) "1" nil)) (if name (setq ergebnis (cons - (list (cons "name" name) (cons "save" save-fmt) (cons "module" module)) + (list (cons "name" name) (cons "save" save-fmt) + (cons "module" module) (cons "disabled" disabled)) ergebnis)) ) ) @@ -199,6 +203,12 @@ (setq save-fmt (cdr (assoc "save" entry))) (setq module (cdr (assoc "module" entry))) + (if (cdr (assoc "disabled" entry)) + ;; Test in alltests.json per "disabled": true abgeschaltet - ueberspringen, + ;; nichts bauen/speichern/exportieren, nur Hinweis ausgeben. + (princ (strcat "\n\n>>> " (itoa idx) "/" (itoa anz) ": " name + " <<< [DEAKTIVIERT in alltests.json - uebersprungen]")) + (progn ;; Namen aus Konvention ableiten (setq namen (test-module-names name tests-pfad)) (setq datei (cdr (assoc "datei" namen))) @@ -389,6 +399,8 @@ ) (princ (strcat "\n WARNUNG: " datei " nicht gefunden - uebersprungen")) ) + ) ;; end (progn ...) des aktiven Zweigs + ) ;; end (if (cdr (assoc "disabled" entry)) ...) ) ;; GUI wieder einschalten (Batch fertig).