s.ayadi
1a34a12ab4
tests/testdata/test_system.json aus sps_skel/data/test_system.dxf (dxf_anlage_export.py --projekt TestSystem): 9 Kreisel, 10 Separatoren, BTMT Beladung, SC Entladung. Treiber tests/test_test_system.lsp (TEST_TEST_SYSTEM, Menue Tests -> Testanlage test_system) nutzt dematic_arvato:bau-datei, in alltests.json aktiv (save dxf). [FIX] dxf_anlage_export.py: doppelte Kreisel-IDs (Kreisel einzeln gebaut, NUMMER beginnt mehrmals bei 1) bekommen die naechste freie Nummer, mit Hinweis + Test. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
57 lines
2.5 KiB
Common Lisp
57 lines
2.5 KiB
Common Lisp
;; ============================================================
|
|
;; test_test_system.lsp - Nachbau der Testanlage "test_system".
|
|
;;
|
|
;; Datenquelle: tests/testdata/test_system.json. Die Zeichnung wurde mit
|
|
;; unseren Makros gebaut (KREISEL_n-Wrapper, Separatoren, BTMT), die Testdaten
|
|
;; kommen darum aus dem Rueckleser, nicht aus dem Scanner:
|
|
;; python lib/dxf_anlage_export.py \
|
|
;; C:/develop/sps_skel/data/test_system.dxf \
|
|
;; tests/testdata/test_system.json --projekt TestSystem
|
|
;;
|
|
;; Inhalt: 9 Kreisel (STANDARD, Ebenen 0 / 2000 / 3000), 10 Separatoren,
|
|
;; BTMT Beladung und SC Entladung - keine Gefaellestrecken, keine VF.
|
|
;; - Die Kreisel wurden in der Zeichnung einzeln gebaut, die Nummer begann
|
|
;; dabei mehrmals neu bei 1 (vier KREISEL_1_*). dxf_anlage_export.py
|
|
;; vergibt fuer die Doppelten Kreisel_TestSystem_07..09 - die Nummern der
|
|
;; gebauten Zeichnung weichen also von der Vorlage ab.
|
|
;;
|
|
;; Zweck: Vorlage fuer sps_skel. Nachbau -> EXPORTCSV -> CSV, auf die dort
|
|
;; material_flow.py / tro_flow.py / scl_skeleton.py angewendet werden.
|
|
;;
|
|
;; Keine eigene Bau-Logik: Eintragsschema und Lauf wie TEST_DEMATIC_ARVATO
|
|
;; (dematic_arvato:bau-datei aus tests/test_dematic_arvato.lsp).
|
|
;;
|
|
;; Aufruf in BricsCAD:
|
|
;; (load (strcat (getenv "DXFMAKRO") "/tests/test_test_system.lsp"))
|
|
;; TEST_TEST_SYSTEM
|
|
;; ============================================================
|
|
|
|
(if (not (boundp '*test-system-records*)) (setq *test-system-records* nil))
|
|
|
|
;; Beim LADEN holen (siehe test_dematic_arvato.lsp: per load definierte
|
|
;; Funktionen sind erst nach Rueckkehr zum Top-Level sichtbar).
|
|
(if (null (car (atoms-family 1 '("DEMATIC_ARVATO:BAU-DATEI"))))
|
|
(load (strcat (getenv "DXFMAKRO") "/tests/test_dematic_arvato.lsp")))
|
|
|
|
(defun test_system:datei ()
|
|
(strcat (getenv "DXFMAKRO") "/tests/testdata/test_system.json"))
|
|
|
|
(defun c:TEST_TEST_SYSTEM ()
|
|
(setq *test-system-records*
|
|
(dematic_arvato:bau-datei "TEST_TEST_SYSTEM" "Testanlage test_system"
|
|
(test_system:datei)))
|
|
(princ))
|
|
|
|
;; Ergebnis-Export (Konvention <name>:export-results fuer test_run_all.lsp)
|
|
(defun test_system:export-results (out-dir / pfad)
|
|
(if (null *test-system-records*)
|
|
(princ "\n Keine test_system-Ergebnisse vorhanden.")
|
|
(progn
|
|
(vl-mkdir out-dir)
|
|
(setq pfad (strcat out-dir "/test_system_results.json"))
|
|
(vsp-results-schreiben *test-system-records* pfad)))
|
|
(princ))
|
|
|
|
(princ "\nTEST_TEST_SYSTEM geladen. Aufruf: TEST_TEST_SYSTEM")
|
|
(princ)
|