Merge remote-tracking branch 'origin/master'

tests/test_unit.lsp

@@ -135,6 +135,74 @@
   (tu-eq "ssg-parse-json-array"
     '((("a" . 1) ("b" . 2)))
     (ssg-parse-json-array '("[" "{" "\"a\": 1," "\"b\": 2" "}" "]")))
+
+  ;; ssg-layer-cfg-eintrag: "Layername, Farbe" -> (layer . farbe)
+  ;; Reine Funktion, ini-Daten als Parameter - kein Datei-IO, keine Zeichnung.
+  (setq _lay (ssg-ini-parse-lines
+    '("# Kommentar"
+      "[ils_2d]"
+      "variofoerderer = ILS_Fingerfoerderer, 4"
+      "ohne_farbe = ILS_SP"
+      "leer ="
+      "[ils_3d]"
+      "variofoerderer = _3D_ILS_Fingerfoerderer, 4"
+      "[allgemein]"
+      "vf_beschriftung = VF_Beschriftung, 7")))
+  (tu-eq  "ssg-layer-cfg-eintrag/layer-und-farbe"
+    '("ILS_Fingerfoerderer" . "4")
+    (ssg-layer-cfg-eintrag _lay "ils_2d" "variofoerderer"))
+  (tu-eq  "ssg-layer-cfg-eintrag/ohne-farbe-default-7"
+    '("ILS_SP" . "7")
+    (ssg-layer-cfg-eintrag _lay "ils_2d" "ohne_farbe"))
+  (tu-nil "ssg-layer-cfg-eintrag/leerer-wert"
+    (ssg-layer-cfg-eintrag _lay "ils_2d" "leer"))
+  (tu-nil "ssg-layer-cfg-eintrag/key-fehlt"
+    (ssg-layer-cfg-eintrag _lay "ils_2d" "gibtsnicht"))
+  (tu-nil "ssg-layer-cfg-eintrag/sektion-fehlt"
+    (ssg-layer-cfg-eintrag _lay "gibtsnicht" "variofoerderer"))
+
+  ;; ssg-layer-eintrag: Aufloesung [ils_<dim>] -> [allgemein].
+  ;; Dimension und cfg werden hier injiziert (kein Datei-IO); der gemerkte
+  ;; Ladeversuch verhindert, dass ssg-layer-cfg-load die echte Datei liest.
+  (setq _lay-cfg-alt   *ssg-layer-cfg*
+        _lay-vers-alt  *ssg-layer-cfg-versucht*
+        _lay-dim-alt   (if (boundp '*ssg-ils-dim*) *ssg-ils-dim*))
+  (setq *ssg-layer-cfg* _lay  *ssg-layer-cfg-versucht* T)
+  (setq *ssg-ils-dim* "2D")
+  (tu-eq  "ssg-layer-eintrag/dim-2d"
+    '("ILS_Fingerfoerderer" . "4") (ssg-layer-eintrag "variofoerderer"))
+  (tu-eq  "ssg-layer-eintrag/fallback-allgemein"
+    '("VF_Beschriftung" . "7") (ssg-layer-eintrag "vf_beschriftung"))
+  (setq *ssg-ils-dim* "3D")
+  (tu-eq  "ssg-layer-eintrag/dim-3d"
+    '("_3D_ILS_Fingerfoerderer" . "4") (ssg-layer-eintrag "variofoerderer"))
+  (tu-nil "ssg-layer-eintrag/unbekannte-baugruppe"
+    (ssg-layer-eintrag "gibtsnicht"))
+
+  ;; ssg-layer-farbe-fuer-name: Farbe zu einem LAYERNAMEN (nicht Baugruppe).
+  ;; Wird gebraucht, weil Layer aus dem LAYER-Attribut oft VOR dem Wrapper
+  ;; angelegt werden und ssg-make-layer die Farbe nur bei Neuanlage setzt.
+  (setq *ssg-layer-cfg* (ssg-ini-parse-lines
+    '("[ils_3d]"
+      "gefaellestrecke = _3D_ILS_SP, 3"
+      "[allgemein]"
+      "vf_beschriftung = VF_Beschriftung, 7"
+      "[farben]"
+      "ILS_SEP-SP = 82")))
+  (tu-eq "ssg-layer-farbe-fuer-name/abschnitt-farben"
+    "82" (ssg-layer-farbe-fuer-name "ILS_SEP-SP"))
+  (tu-eq "ssg-layer-farbe-fuer-name/aus-baugruppen-wert"
+    "3" (ssg-layer-farbe-fuer-name "_3D_ILS_SP"))
+  (tu-eq "ssg-layer-farbe-fuer-name/case-insensitiv"
+    "3" (ssg-layer-farbe-fuer-name "_3d_ils_sp"))
+  (tu-eq "ssg-layer-farbe-fuer-name/unbekannt-default-7"
+    "7" (ssg-layer-farbe-fuer-name "GibtsNicht"))
+  (tu-eq "ssg-layer-farbe-fuer-name/leerer-name"
+    "7" (ssg-layer-farbe-fuer-name ""))
+  ;; Globale Zustaende wieder herstellen
+  (setq *ssg-ils-dim*            _lay-dim-alt
+        *ssg-layer-cfg*          _lay-cfg-alt
+        *ssg-layer-cfg-versucht* _lay-vers-alt)
 )