Debug Erzeugung aus dem Foerderer lisp Test entfernt

tests/test_foerderer.lsp

@@ -86,25 +86,13 @@
   (setvar "ATTREQ" 0)
   (setvar "ATTDIA" 0)
 
-  ;; Debug-Logging starten
-  (dbgopen "test_foerderer.dbg" "DXFM_LOG")
-
   ;; Testdaten aus JSON laden
   (setq json-datei
     (strcat (getenv "DXFMAKRO")
             "\\tests\\testdata\\foerderer_tests.json"))
-
-  (dbgmsg (strcat "DXFMAKRO=" (if (getenv "DXFMAKRO") (getenv "DXFMAKRO") "nil")))
-  (dbgmsg (strcat "json-datei=" json-datei))
-  (dbgmsg (strcat "file-exists=" (if (findfile json-datei) "JA" "NEIN")))
-  (dbgflush)
-
   (setq testdaten (ssg-load-json json-datei))
   (if (null testdaten)
     (progn
-      (dbgmsg "FEHLER: testdaten ist nil nach ssg-load-json")
-      (dbgflush)
-      (dbgclose)
       (alert (strcat "Testdaten nicht gefunden:\n" json-datei))
       (ssg-end)
       (exit)
@@ -212,7 +200,6 @@
   ;; Ergebnisse in globaler Variable speichern
   (setq *foerderer-test-results* (reverse results-list))
 
-  (dbgclose)
   (ssg-end)
   (princ "\n================================================================")
   (princ "\n  TEST_FOERDERER abgeschlossen.")