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

Small fix

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-07-12 19:29:24 +03:00
parent fa1170eb59
commit 02f954d829
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utest.scm
View File

@ -844,11 +844,11 @@
(define (execute-tests tests) (define (execute-tests tests)
(let ((test-count (length tests)) (let ((test-count (length tests))
(pass-count (pass-count
(fold (lambda (test cnt) (apply + (map (lambda (test)
(let-values (((pass out) (execute-test test))) (let-values (((pass out) (execute-test test)))
(println out) (println out)
(+ cnt (if pass 1 0)))) (if pass 1 0)))
0 tests))) tests))))
(printf "PASSED ~a/~a\n\n" pass-count test-count))) (printf "PASSED ~a/~a\n\n" pass-count test-count)))
;;; ;;;