[ADD] Testanlage test_system als Nachbau-Vorlage fuer sps_skel

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>

tests/test_test_system.lsp

@@ -0,0 +1,56 @@
+;; ============================================================
+;; 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)