[FEAT] Weitere Objekte der Anlage in hundm05.json bauen (Kreisel)
tests/testdata/hundm05.json enthaelt jetzt neben den 5 Spec-Ketten auch andere Objekte der Anlage - erkennbar am Feld "function", im Format der jeweiligen Einzel-Testdaten (ein Kreisel also wie in kreisel_tests.json). Damit beschreibt EINE Datei die ganze Anlage. - tests/test_hundm05.lsp: hundm05:bau-zusatzobjekte sammelt alle Objekte mit "function" und baut sie; hundm05:bau-kreisel ruft kreisel-insert-script (wie tests/test_kreisel.lsp) und liefert einen Ergebnis-Record in derselben Form wie die Ketten. Eigener ssg-start-Rahmen mit ATTREQ/ATTDIA 0, weil vsp-bau-datei seinen schon geschlossen hat und (command "_.INSERT" ...) sonst nach Attributwerten fragt. Je Objekt gefangen, damit ein Fehler die restlichen nicht mitnimmt. - Lisp/vf_spec.lsp: "kind" ist jetzt ein Record-Feld (Default "linienzug") statt eines Literals in vsp-result-json - so schreibt vsp-results-schreiben beide Objektarten in EINE Ergebnisdatei. - lib/vf_spec_export.py: Objekte der Ziel-Datei, die keine Kette beschreiben, werden beim Neuschreiben unveraendert ans Dateiende uebernommen. Ohne das waere jeder von Hand ergaenzte Eintrag beim naechsten Generatorlauf weg - die Datei ist erzeugt UND handgepflegt. spec_aus_flachen_objekten ueberspringt sie jetzt statt zu werfen, genau wie vsp-gruppieren in LISP. - tests/test_hundm05.py: die Ketten-Tests filtern auf kind "linienzug" (Records ohne das Feld stammen aus aelteren Laeufen und waren nur Ketten); neue Klasse TestZusatzobjekte prueft Status, expect_block_prefix, expect_hoehe (Attribut HOEHE), expect_kreiselart (KREISELART) und den Einfuegepunkt - dieselben Erwartungsfelder wie tests/test_kreisel.py. - tests/test_vf_spec.py: neuer Test, dass die Zusatzobjekte die Ketten-Zerlegung nicht beeinflussen - auch nicht, wenn sie mitten zwischen den Sektionen stehen (der eingetragene Kreisel stand zunaechst inmitten der Sub-Knoten von Kette 5; nach dem Regenerieren steht er am Dateiende). Verifiziert: 118 pytest-Tests gruen, Spec-Regenerierung uebernimmt das Zusatzobjekt (58 Objekte), beide .lsp lint-sauber. Die Kreisel-Tests warten auf den naechsten TEST_HUNDM05-Lauf. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
This commit is contained in:
+5
-1
@@ -520,6 +520,10 @@
|
||||
|
||||
(defun vsp-rec-neu (sid)
|
||||
(list (cons "spec_id" sid)
|
||||
;; kind unterscheidet die Objektarten in EINER Ergebnisdatei: die
|
||||
;; Testdaten enthalten neben den Ketten auch andere Objekte der
|
||||
;; Anlage (Kreisel u.a., siehe tests/test_hundm05.lsp).
|
||||
(cons "kind" "linienzug")
|
||||
(cons "status" "?")
|
||||
(cons "dimension" "?")
|
||||
(cons "block_name" nil)
|
||||
@@ -586,7 +590,7 @@
|
||||
(defun vsp-result-json (rec / json)
|
||||
(setq json (strcat " {\n"
|
||||
" \"spec_id\": " (vsp-json-str (ssg-val rec "spec_id")) ",\n"
|
||||
" \"kind\": \"linienzug\",\n"
|
||||
" \"kind\": " (vsp-json-str (ssg-val rec "kind")) ",\n"
|
||||
" \"status\": " (vsp-json-str (ssg-val rec "status")) ",\n"
|
||||
" \"dimension\": " (vsp-json-str (ssg-val rec "dimension")) ",\n"
|
||||
" \"block_name\": " (vsp-json-str (ssg-val rec "block_name")) ",\n"
|
||||
|
||||
Reference in New Issue
Block a user