Add base path (folder with TB script) to includes list by default

This commit is contained in:
Nikolay Puzanov 2022-07-09 12:31:13 +03:00
parent ea6a0837e2
commit e917908049

View File

@ -569,7 +569,9 @@
`((UTEST_BASE_DIR ,(format "'\"~a\"'" base-path)) `((UTEST_BASE_DIR ,(format "'\"~a\"'" base-path))
(UTEST_WORK_DIR ,(format "'\"~a\"'" work-path))))) (UTEST_WORK_DIR ,(format "'\"~a\"'" work-path)))))
(includes (map (lambda (x) (path->absolute x base-path)) (arg-to-list includes))) (includes (append (map (lambda (x) (path->absolute x base-path)) (arg-to-list includes))
(list base-path)))
(modpaths (map (lambda (x) (path->absolute x base-path)) (arg-to-list modpaths))) (modpaths (map (lambda (x) (path->absolute x base-path)) (arg-to-list modpaths)))
(vpipaths (map (lambda (x) (path->absolute x base-path)) (arg-to-list vpipaths))) (vpipaths (map (lambda (x) (path->absolute x base-path)) (arg-to-list vpipaths)))
(execfile (format "~a/~a.vvp" work-path top))) (execfile (format "~a/~a.vvp" work-path top)))