;; ============================================================
;; test_run_all.lsp - Fuehrt alle LISP-Tests nacheinander aus
;;
;; Laedt und startet:
;;   1. TEST_KREISEL
;;   2. TEST_FOERDERER
;;   3. TEST_KSEINAUS
;;   4. TEST_OMNIFLO_EXPORT
;;
;; Ergebnisse werden jeweils in tests/output/ gespeichert.
;;
;; Voraussetzungen:
;;   - SSG_LIB geladen
;;   - Umgebungsvariable DXFMAKRO gesetzt
;;
;; Aufruf in BricsCAD:
;;   (load (strcat (getenv "DXFMAKRO") "/tests/test_run_all.lsp"))
;;   SSG_RUN_ALL_TESTS
;; ============================================================

(defun c:SSG_RUN_ALL_TESTS ( / tests-pfad test-dateien test-befehle
                                datei befehl idx anz)

  (setq tests-pfad (strcat (getenv "DXFMAKRO") "/tests"))

  ;; Test-Dateien und zugehoerige Befehle
  (setq test-dateien (list
    (strcat tests-pfad "/test_kreisel.lsp")
    (strcat tests-pfad "/test_foerderer.lsp")
    (strcat tests-pfad "/test_ks.lsp")
    (strcat tests-pfad "/test_omniflo.lsp")
  ))
  (setq test-befehle (list
    "TEST_KREISEL"
    "TEST_FOERDERER"
    "TEST_KSEINAUS"
    "TEST_OMNIFLO_EXPORT"
  ))

  (setq anz (length test-dateien))
  (setq idx 0)

  (princ "\n")
  (princ "\n================================================================")
  (princ "\n  SSG_RUN_ALL_TESTS")
  (princ (strcat "\n  " (itoa anz) " Testmodule"))
  (princ "\n================================================================")

  ;; Tests laden und ausfuehren
  (mapcar
    '(lambda (datei befehl)
      (setq idx (1+ idx))
      (princ (strcat "\n\n>>> " (itoa idx) "/" (itoa anz) ": " befehl " <<<"))
      (if (findfile datei)
        (progn
          (load datei)
          (eval (list (read (strcat "c:" befehl))))
        )
        (princ (strcat "\n  WARNUNG: " datei " nicht gefunden - uebersprungen"))
      )
    )
    test-dateien
    test-befehle
  )

  (princ "\n\n================================================================")
  (princ "\n  SSG_RUN_ALL_TESTS abgeschlossen.")
  (princ (strcat "\n  Ergebnisse in: " (getenv "DXFMAKRO") "/tests/output/"))
  (princ "\n================================================================")
  (princ)
)