np/hdl-unit-test-suite
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Return #f from testbench of no test procedures available

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-07-12 18:40:59 +03:00
parent 2cd32319fc
commit b5d2b12863
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
utest.scm
View File

@ -620,12 +620,23 @@
(define (collect-test-procs files)
(fold
(lambda (f procs)
(let ((f (path->absolute f)))
(let* ((f (path->absolute f))
(base (dirname f)))
(append
procs
(map (lambda (proc) (list proc (dirname f) (basename f)))
(let ((procs (load f)))
(if (list? procs) procs (list procs)))))))
(filter
car
(map (lambda (proc) (list proc base (basename f)))
(let ((procs
(parameterize ((utest/base-path base)
(utest/work-path #f))
(load f))))
(if procs
(if (list? procs) procs
(if (procedure? procs)
(list procs)
'(#f)))
'(#f))))))))
'() files))
;;;