omniflo csv Export lisp routine entfernt.

tests/test_omniflo.lsp

@@ -1,10 +1,11 @@
 ;; ============================================================
 ;; test_omniflo.lsp - Automatischer Integrationstest fuer Omniflo
 ;;
-;; Laedt Testfaelle aus tests/testdata/omniflo_tests.json,
+;; Laedt Testfaelle aus tests/testdata/omniflo_tests.json und
 ;; fuegt je einen Bogen und Weiche jeden Typs in verschiedenen
-;; Hoehen ein (Versatz in x-Richtung je 200mm) und exportiert
-;; die CSV-Datei nach tests/output/omniflo_export.csv.
+;; Hoehen ein (Versatz in x-Richtung je 200mm). Ergebnisse werden
+;; ueber omniflo:export-results nach tests/output/omniflo_results.json
+;; geschrieben (Aufruf durch SSG_RUN_ALL_TESTS oder manuell).
 ;;
 ;; Voraussetzungen:
 ;;   - SSG_LIB geladen (OmniModulInsert.lsp, export.lsp)
@@ -104,14 +105,13 @@
 ;; ============================================================
 ;; C:TEST_OMNIFLO
 ;;
-;; Liest omniflo_tests.json, fuegt alle Testbloecke ein,
-;; exportiert CSV nach tests/output/.
+;; Liest omniflo_tests.json und fuegt alle Testbloecke ein.
 ;; ============================================================
 (defun c:TEST_OMNIFLO (/ tests-json-pfad testfaelle
                                  x-val y-val
                                  idx eintrag sivasnr hoehe-str drehung-str
                                  description insert-pt anzahl-ok anzahl-fehler
-                                 results-list tests-out-dir old-results)
+                                 results-list)
 
   (ssg-start "TEST_OMNIFLO"
     '(("OSMODE") ("ATTREQ") ("ATTDIA")))
@@ -217,24 +217,10 @@
           ;; Ergebnisse in globaler Variable speichern
           (setq *omniflo-test-results* (reverse results-list))
 
-          ;; CSV-Export nach tests/output/
-          (setq tests-out-dir
-            (strcat (getenv "DXFMAKRO") "/tests/output"))
-          (vl-mkdir tests-out-dir)
-
-          (setq old-results (getenv "DXFM_RESULTS"))
-          (setenv "DXFM_RESULTS" tests-out-dir)
-
-          (princ "\n[TEST_OMNIFLO] Starte OMNI_EXPORT -> tests/output/omniflo_export.csv")
-          (c:OMNI_EXPORT)
-
-          (setenv "DXFM_RESULTS" (if old-results old-results ""))
-
           (ssg-end)
 
           (princ "\n================================================================")
           (princ "\n  TEST_OMNIFLO abgeschlossen.")
-          (princ (strcat "\n  CSV: " tests-out-dir "/omniflo_export.csv"))
           (princ "\n================================================================")
           (princ)
         )