18 lines
1.1 KiB
Plaintext
18 lines
1.1 KiB
Plaintext
; test_unit.scr - Headless-Skript fuer bin\run_tests.bat --lisp
|
|
; Laedt SSG_LIB + die Unit-Tests, fuehrt TEST_UNIT aus und beendet BricsCAD.
|
|
; Pfadunabhaengig ueber DXFMAKRO (von setenv.bat gesetzt).
|
|
(load (strcat (getenv "DXFMAKRO") "/Lisp/ssg_load.lsp"))
|
|
; Lazy Feature-Module, die einzelne Unit-Tests brauchen, hier auf .scr-Top-
|
|
; Level laden. In BricsCAD werden per load definierte Funktionen erst nach
|
|
; Rueckkehr zum Top-Level sichtbar - ein load INNERHALB von c:TEST_UNIT
|
|
; (oder eines gecatchten Testblocks) bindet sie im selben Durchlauf nicht.
|
|
; DIES ist die einzige Ladestelle: Testet ein neuer Block ein weiteres lazy
|
|
; Modul, gehoert dessen load-Zeile HIER dazu (nicht in test_unit.lsp).
|
|
(load (strcat (getenv "DXFM_LISP") "/GeruestInsert.lsp") "GeruestInsert.lsp nicht gefunden")
|
|
(load (strcat (getenv "DXFM_LISP") "/count_sep_scan.lsp") "count_sep_scan.lsp nicht gefunden")
|
|
(load (strcat (getenv "DXFM_LISP") "/KettenFoerderer.lsp") "KettenFoerderer.lsp nicht gefunden")
|
|
(load (strcat (getenv "DXFM_LISP") "/check_hoehen.lsp") "check_hoehen.lsp nicht gefunden")
|
|
(load (strcat (getenv "DXFMAKRO") "/tests/test_unit.lsp"))
|
|
(c:TEST_UNIT)
|
|
(command "_.QUIT")
|