[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) <noreply@anthropic.com>

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 }
 ]

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).