Readme der lisp Tests aktualisiert. Foerderer Tests korrigiert. Flaches .json benötigt.

tests/test_foerderer.lsp

@@ -86,13 +86,25 @@
   (setvar "ATTREQ" 0)
   (setvar "ATTDIA" 0)
 
+  ;; Debug-Logging starten
+  (dbgopen "test_foerderer.dbg" "DXFM_LOG")
+
   ;; Testdaten aus JSON laden
   (setq json-datei
-    (strcat (vl-string-translate "\\" "/" (getenv "DXFMAKRO"))
-            "/tests/testdata/foerderer_tests.json"))
+    (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)
@@ -200,6 +212,7 @@
   ;; Ergebnisse in globaler Variable speichern
   (setq *foerderer-test-results* (reverse results-list))
 
+  (dbgclose)
   (ssg-end)
   (princ "\n================================================================")
   (princ "\n  TEST_FOERDERER abgeschlossen.")