Schoenenberger_Systeme_GmbH/dxfmakros
3
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Testroutinen auf kseinaus umbenannt und aktualisiert

Browse Source 
test_ks.lsp in test_kseinaus.lsp umbenannt und alle Testroutinen
(foerderer, kreisel, omniflo) sowie run_tests.bat und README
entsprechend angepasst.
This commit is contained in:
Michael Stangl
2026-06-19 21:00:45 +02:00
parent 21682576c4
commit c01dad28f3
7 changed files with 421 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_kreisel.lsp
+33 -31
View File
@@ -142,12 +142,40 @@
)
;; --- JSON-Export der Kreisel-Testergebnisse ---
(defun kreisel:export-results (tests-out-dir / out-json f first)
(if (null *kreisel-test-results*)
(princ "\n Keine Kreisel-Ergebnisse vorhanden.")
(progn
(vl-mkdir tests-out-dir)
(setq out-json (strcat tests-out-dir "/kreisel_results.json"))
(setq f (open out-json "w"))
(if f
(progn
(write-line "[" f)
(setq first T)
(foreach r *kreisel-test-results*
(if (not first) (write-line "," f))
(write-line r f)
(setq first nil)
)
(write-line "]" f)
(close f)
(princ (strcat "\n Ergebnisse: " out-json))
)
(princ (strcat "\n FEHLER: Kann " out-json " nicht schreiben!"))
)
)
)
)
;; ============================================================
;; C:TEST_KREISEL - Hauptbefehl
;; ============================================================
(defun c:TEST_KREISEL (/ tests-json-pfad testfaelle tests-out-dir
out-dxf out-json f eintrag func
result-json results-list first
(defun c:TEST_KREISEL (/ tests-json-pfad testfaelle
eintrag func
result-json results-list
anzahl-ok anzahl-fehler)
(ssg-start "TEST_KREISEL" '(("OSMODE") ("ATTREQ") ("ATTDIA")))
@@ -214,34 +242,8 @@
(itoa anzahl-fehler) " Fehler"))
(princ "\n================================================================")
;; Ergebnisse speichern
(setq tests-out-dir (strcat (getenv "DXFMAKRO") "/tests/output"))
(vl-mkdir tests-out-dir)
;; JSON-Ergebnisse schreiben
(setq out-json (strcat tests-out-dir "/kreisel_results.json"))
(setq f (open out-json "w"))
(if f
(progn
(write-line "[" f)
(setq results-list (reverse results-list))
(setq first T)
(foreach r results-list
(if (not first) (write-line "," f))
(write-line r f)
(setq first nil)
)
(write-line "]" f)
(close f)
(princ (strcat "\n Ergebnisse: " out-json))
)
(princ (strcat "\n FEHLER: Kann " out-json " nicht schreiben!"))
)
;; DXF speichern
(setq out-dxf (strcat tests-out-dir "/kreisel_tests.dxf"))
(command "_.SAVEAS" "" out-dxf)
(princ (strcat "\n DXF gespeichert: " out-dxf))
;; Ergebnisse in globaler Variable speichern
(setq *kreisel-test-results* (reverse results-list))
(ssg-end)
(princ "\n================================================================")