dxfmakros/tests/test_linienzug.lsp

;; ============================================================
;; test_linienzug.lsp - Regressionstest fuer den VF-Linienzug (Modus 1)
;;
;; Eigenstaendige Testdatei (getrennt von test_foerderer.lsp).
;;
;; Der VF-Linienzug (vf-linienzug-modus) ist stark interaktiv (getpoint /
;; getstring / getint / getreal). Dieser Test spielt eine reale Session als
;; Skript ab: die vier Eingabe-Funktionen werden NUR waehrend des Testlaufs
;; durch Mocks ersetzt (mit Save/Restore), danach wieder hergestellt.
;;
;; Voraussetzungen:
;;   - SSG_LIB geladen (VarioFoerderer.lsp inkl. vf_linienzug.lsp mit
;;     vfl-getpoint, Gefaellestrecke.lsp, ssg_core.lsp)
;;   - Umgebungsvariable DXFMAKRO gesetzt
;;
;; Repliziertes Szenario (aus manuellem Test):
;;   Start Z=4500, AS rechts
;;   -> Neue Linie (Ab, Ziel-Z=1800, Winkel 45 Grad), GF ganz am Einlauf
;;   -> Horizontal 900 mm mit Separator VOR + NACH (beide horizontal, 0 Grad)
;;   -> Vario-Kurve 90 links aussen
;;   -> Horizontal 250 mm (ohne Separatoren)
;;   -> Vario-Kurve 90 links aussen
;;   -> Option 3 (Kettenende definieren): Ziel-Z=4500, Winkel 45 Grad, ES rechts
;;
;; Erwartetes Ergebnis (Ist-Ziel-Report):
;;   dX ~ 0, dZ ~ 0 (Ziel exakt getroffen),
;;   dY ~ 637 mm  = seitlicher Fussabdruck des ES_Element_90 (90-Grad-Schwenk;
;;                  KEIN Baufehler, sondern die Bauform des ES-Elements).
;;
;; Aufruf in BricsCAD:
;;   (load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp"))
;;   TEST_LINIENZUG
;; ============================================================

;; Naechste Skript-Antwort liefern (FIFO). Bei leerer Queue Warnung + "".
(defun tlz-pop ( / v)
  (if *tlz-q*
    (progn (setq v (car *tlz-q*)) (setq *tlz-q* (cdr *tlz-q*)) v)
    (progn (princ "\n  [TEST_LINIENZUG] WARNUNG: Skript-Queue leer - unerwartete Abfrage!") "")
  )
)

;; Mock-Eingabefunktionen. getpoint erhaelt als 1. Argument den Basispunkt
;; (p-akt) bei Folge-Segmenten bzw. einen Prompt-String beim Startpunkt.
;;   Skript-Eintrag (A x y z)   -> absoluter Punkt
;;   Skript-Eintrag (P dL hz)   -> Basispunkt + dL entlang Richtung hz (Grad),
;;                                 sodass die Projektion in vfl-neue-linie-messen
;;                                 exakt dL ergibt.
(defun tlz-getpoint (a b / spec base rad)
  (setq spec (tlz-pop))
  (setq base (if (and a (listp a)) a '(0.0 0.0 0.0)))
  (if (and (listp spec) (= (car spec) 'A))
    (list (float (cadr spec)) (float (caddr spec)) (float (cadddr spec)))
    (progn
      (setq rad (* (float (caddr spec)) (/ pi 180.0)))
      (list (+ (car base)  (* (float (cadr spec)) (cos rad)))
            (+ (cadr base) (* (float (cadr spec)) (sin rad)))
            (caddr base))
    )
  )
)
(defun tlz-getstring (a) (tlz-pop))
(defun tlz-getint (a) (tlz-pop))
(defun tlz-getreal (a) (tlz-pop))

(defun c:TEST_LINIENZUG ( / old-vgp old-gs old-gi old-gr err)
  (if (or (not *lib-initialized*) (null bogen-auf)) (init-bibliothek))
  (if (null (car (atoms-family 1 '("VF-LINIENZUG-MODUS"))))
    (progn
      (alert (strcat "vf-linienzug-modus nicht geladen!\n"
                     "Bitte Menue/Module laden (VarioFoerderer + Gefaellestrecke)."))
      (exit)
    )
  )

  (princ "\n================================================================")
  (princ "\n         TEST_LINIENZUG - VF-Linienzug Replay-Test")
  (princ "\n================================================================")

  (ssg-start "TEST_LINIENZUG" '(("OSMODE") ("ATTREQ") ("ATTDIA")))
  (setvar "OSMODE" 0)
  (setvar "ATTREQ" 0)
  (setvar "ATTDIA" 0)

  ;; --- Skript der Eingaben in exakter Aufruf-Reihenfolge ---
  (setq *tlz-q*
    (list
      (list 'A 0 0 0)     ; getpoint  Startpunkt der Kette
      4500.0              ; getreal   Hoehe (Z) Startpunkt
      "2"                 ; getstring AS-Seite (rechts)
      "1"                 ; getstring Naechstes Element (Neue Linie)
      (list 'P 5500 0)    ; getpoint  Endpunkt Linie (frei, +X, dL=5500)
      1800.0              ; getreal   Hoehe (Z) Linienendpunkt
      1                   ; getint    Winkelwahl (45 Grad)
      "2"                 ; getstring GF-Verteilung (alles am Einlauf)
      "2"                 ; getstring Ist Endpunkt? (Nein)
      "1"                 ; getstring Naechstes im VF (Horizontal)
      (list 'P 900 0)     ; getpoint  Horizontal-Endpunkt (dL=900, hz=0)
      "1"                 ; getstring Separator VOR? (Ja)
      "1"                 ; getstring Separator NACH? (Ja)
      "2"                 ; getstring Ist Endpunkt? (Nein)
      "2"                 ; getstring Naechstes (Vario-Kurve)
      1                   ; getint    Kurve-Winkel (90)
      "1"                 ; getstring Kurve-Seite (links)
      "1"                 ; getstring Kurve-Variante (aussen)
      "2"                 ; getstring Ist Endpunkt? (Nein)
      "1"                 ; getstring Naechstes (Horizontal)
      (list 'P 250 90)    ; getpoint  Horizontal-Endpunkt (dL=250, hz=90)
      "2"                 ; getstring Separator VOR? (Nein)
      "2"                 ; getstring Separator NACH? (Nein)
      "2"                 ; getstring Ist Endpunkt? (Nein)
      "2"                 ; getstring Naechstes (Vario-Kurve)
      1                   ; getint    Kurve-Winkel (90)
      "1"                 ; getstring Kurve-Seite (links)
      "1"                 ; getstring Kurve-Variante (aussen)
      "3"                 ; getstring Ist Endpunkt? (Option 3 - Kettenende)
      (list 'P 6215 180)  ; getpoint  Option-3-Endpunkt (dL=6215, hz=180)
      4500.0              ; getreal   Hoehe (Z) Kettenende (ES)
      2                   ; getint    Option-3-Winkelwahl (45 Grad)
      "2"                 ; getstring ES-Seite (rechts)
    )
  )

  ;; --- Eingabe-Funktionen sichern und durch Mocks ersetzen ---
  ;; Punkte ueber den Produktions-Wrapper vfl-getpoint (feste 2-Arity),
  ;; getstring/getint/getreal (alle 1-argumentig) direkt.
  (setq old-vgp vfl-getpoint  old-gs getstring  old-gi getint  old-gr getreal)
  (setq vfl-getpoint tlz-getpoint
        getstring    tlz-getstring
        getint       tlz-getint
        getreal      tlz-getreal)

  ;; --- Linienzug-Modus abspielen (Fehler abfangen, damit Restore sicher laeuft) ---
  (setq err (vl-catch-all-apply 'vf-linienzug-modus '()))

  ;; --- Eingabe-Funktionen wiederherstellen (IMMER) ---
  (setq vfl-getpoint old-vgp  getstring old-gs  getint old-gi  getreal old-gr)

  (princ "\n================================================================")
  (if (vl-catch-all-error-p err)
    (princ (strcat "\n  TEST_LINIENZUG: FEHLER -> "
                   (vl-catch-all-error-message err)))
    (progn
      (princ "\n  TEST_LINIENZUG: Kette gebaut.")
      (if *tlz-q*
        (princ (strcat "\n  WARNUNG: " (itoa (length *tlz-q*))
                       " Skript-Eintraege NICHT verbraucht (Ablauf weicht ab)."))
        (princ "\n  Alle Skript-Eingaben verbraucht (Ablauf wie erwartet)."))
      (princ "\n  Erwartung Ist-Ziel: dX~0, dZ~0, dY~637 mm (ES_90-Seitenversatz).")
    )
  )
  (princ "\n================================================================")

  (ssg-end)
  (princ)
)