diff --git a/tests/test_unit.lsp b/tests/test_unit.lsp
index 92b812d..b620f9d 100644
--- a/tests/test_unit.lsp
+++ b/tests/test_unit.lsp
@@ -1608,12 +1608,13 @@
 ;; ------------------------------------------------------------
 
 (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")))
                 (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"
-      "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
       ;; --- ssg_input ---
       (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/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))
+
+      ;; --- 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))
     )
   )
 )