emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests] return 1 as an exit code if there are failures.

Browse Source
This commit is contained in:
Joe Thornber 2017-08-21 10:18:10 +01:00
parent 8603a802ed
commit 9b632b769d
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
functional-tests/functional-tests.scm
View File

@ -222,6 +222,7 @@
(thunk) (thunk)
#t))))) #t)))))
;; Returns #t if all tests pass.
(define (run-scenarios ss) (define (run-scenarios ss)
(let ((pass 0) (let ((pass 0)
(fail 0) (fail 0)
@ -250,7 +251,8 @@
(cat (dsp ", ") (cat (dsp ", ")
(num fail) (num fail)
(dsp " failures."))) (dsp " failures.")))
nl)))) nl))
(zero? fail)))
;;----------------------------------------------- ;;-----------------------------------------------

5
functional-tests/run-functional-tests.scm
View File

@ -5,5 +5,8 @@
(register-thin-tests) (register-thin-tests)
(register-cache-tests) (register-cache-tests)
(run-scenarios (list-scenarios))
(if (run-scenarios (list-scenarios))
(exit)
(exit #f))