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

testrunner gefixt

Browse Source
This commit is contained in:
Michael Stangl
2026-10-19 15:46:07 +02:00
parent 6b8f0f9ec3
commit 94238b26f0
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_run_all.lsp
+9 -8
View File
@@ -325,16 +325,17 @@
(if (findfile csv-pfad) (vl-file-delete csv-pfad))
(if (findfile sivas-pfad) (vl-file-delete sivas-pfad))
;; Nur die beiden CSV-Namen ersetzen, alle uebrigen Keys
;; (z.B. kreisel_weichen_datei) unveraendert uebernehmen -
;; eine hart nachgebaute Liste verliert sonst neue Keys.
(setq old-filenames *export-filenames*)
(setq *export-filenames*
(list
(cons "raw_json_datei" (cdr (assoc "raw_json_datei" old-filenames)))
(cons "sivas_script" (cdr (assoc "sivas_script" old-filenames)))
(cons "sivas_csv" sivas-name)
(cons "csv_script" (cdr (assoc "csv_script" old-filenames)))
(cons "csv_csv" csv-name)
)
)
(mapcar
'(lambda (p)
(cond ((= (car p) "sivas_csv") (cons "sivas_csv" sivas-name))
((= (car p) "csv_csv") (cons "csv_csv" csv-name))
(T p)))
old-filenames))
(princ (strcat "\n CSV-Export -> " csv-name))
(c:EXPORTCSV)