72 lines
2.1 KiB
Common Lisp
72 lines
2.1 KiB
Common Lisp
;; ============================================================
|
|
;; 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)
|
|
)
|