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

Test für Elementerkennung hinzugefügt

Browse Source
This commit is contained in:
Michael Stangl
2026-10-09 16:31:12 +02:00
parent 2584a0df1f
commit 549798cd0b
1 changed files with 31 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_unit.lsp
+31 -3
View File
@@ -1608,12 +1608,13 @@
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
(defun tu-tests-werkzeuge ( / _e) (defun tu-tests-werkzeuge ( / _e)
(princ "\n[ssg_input / ssg_blocktools / ssg_texttools]") (princ "\n[ssg_input / ssg_blocktools / ssg_texttools / ssg_stueckliste]")
(if (not (and (car (atoms-family 1 '("SSG-IN-DEFAULT"))) (if (not (and (car (atoms-family 1 '("SSG-IN-DEFAULT")))
(car (atoms-family 1 '("SSG-BT-WERT-NEU"))) (car (atoms-family 1 '("SSG-BT-WERT-NEU")))
(car (atoms-family 1 '("SSG-TT-LESBARER-WINKEL"))))) (car (atoms-family 1 '("SSG-TT-LESBARER-WINKEL")))
(car (atoms-family 1 '("SSG-SL-KLASSE")))))
(tu-record nil "werkzeuge/geladen" (tu-record nil "werkzeuge/geladen"
"ssg_input/ssg_blocktools/ssg_texttools nicht geladen (ssg_load.lsp)") "ssg_input/ssg_blocktools/ssg_texttools/ssg_stueckliste nicht geladen (ssg_load.lsp)")
(progn (progn
;; --- ssg_input --- ;; --- ssg_input ---
(tu-eqf "ssg-in-default/vorgabe" 5.0 (ssg-in-default nil 5.0)) (tu-eqf "ssg-in-default/vorgabe" 5.0 (ssg-in-default nil 5.0))
@@ -1668,6 +1669,33 @@
(tu-eqf "ssg-tt-versetzt/x" '(5.0 0.0 0.0) (ssg-tt-versetzt '(0.0 0.0 0.0) 0.0 5.0)) (tu-eqf "ssg-tt-versetzt/x" '(5.0 0.0 0.0) (ssg-tt-versetzt '(0.0 0.0 0.0) 0.0 5.0))
(tu-eqf "ssg-tt-versetzt/y" '(0.0 2.0 0.0) (ssg-tt-versetzt '(0.0 0.0 0.0) (/ pi 2.0) 2.0)) (tu-eqf "ssg-tt-versetzt/y" '(0.0 2.0 0.0) (ssg-tt-versetzt '(0.0 0.0 0.0) (/ pi 2.0) 2.0))
(tu-eqf "ssg-tt-versetzt/2d" '(1.0 4.0 0.0) (ssg-tt-versetzt '(1.0 1.0) (/ pi 2.0) 3.0)) (tu-eqf "ssg-tt-versetzt/2d" '(1.0 4.0 0.0) (ssg-tt-versetzt '(1.0 1.0) (/ pi 2.0) 3.0))
;; --- ssg_stueckliste: ssg-sl-klasse (Elementerkennung) ---
(tu-eq "ssg-sl-klasse/kreisel" "ils_kreisel" (car (ssg-sl-klasse "KREISEL_1_STANDARD_2300")))
(tu-eq "ssg-sl-klasse/eckrad" "ils_kreisel" (car (ssg-sl-klasse "ECKRAD_3")))
(tu-eq "ssg-sl-klasse/vf" "ils_strecke" (car (ssg-sl-klasse "VF_2")))
(tu-eq "ssg-sl-klasse/gf" "ils_strecke" (car (ssg-sl-klasse "GF_1")))
(tu-eq "ssg-sl-klasse/geruest" "geruest" (car (ssg-sl-klasse "GR_Saeulen_20260101120000")))
(tu-eq "ssg-sl-klasse/ap60" "ap60" (car (ssg-sl-klasse "AP60_20260101120000")))
(tu-eq "ssg-sl-klasse/apg110" "apg110" (car (ssg-sl-klasse "APG110_20260101120000")))
(tu-eq "ssg-sl-klasse/ap110" "ap110" (car (ssg-sl-klasse "AP110_20260101120000")))
(tu-eq "ssg-sl-klasse/ap_110" "ap110" (car (ssg-sl-klasse "AP_110_20260101120000")))
(tu-eq "ssg-sl-klasse/klein" "ap60" (car (ssg-sl-klasse "ap60_test")))
(tu-nil "ssg-sl-klasse/unbekannt" (ssg-sl-klasse "SONSTIGER_BLOCK"))
;; Leerer/nil Auswahlsatz -> keine Elemente (der Treffer-Pfad braucht
;; echte Entities und ist nur im Szenario-Test abgedeckt).
(tu-nil "ssg-sl-elemente-aus-ss/nil" (ssg-sl-elemente-aus-ss nil))
;; ssg-sl-gruppieren-werte = reiner Kern ohne Zeichnungszugriff; die
;; Laengenermittlung aus der Zeichnung ist in ssg-sl-gruppieren getrennt.
(tu-eq "ssg-sl-gruppieren-werte/zaehlung-und-summe"
'(("a" "Bez-A" 2 300.0) ("b" "Bez-B" 1 50.0))
(ssg-sl-gruppieren-werte
(list (list "a" "Bez-A" 100.0)
(list "b" "Bez-B" 50.0)
(list "a" "Bez-A" 200.0))))
(tu-nil "ssg-sl-gruppieren-werte/leer" (ssg-sl-gruppieren-werte nil))
) )
) )
) )