Make TestRunner.Run return its result

[GB.TEST]
* BUG: TestRunner.Run returns its result TestStats now.
This commit is contained in:
Tobias Boege 2020-05-14 12:53:17 +02:00
parent ef32c2e7a2
commit 05d9fdf865

View file

@ -16,7 +16,7 @@ End
'' Runs Tests in a project given by path
Public Sub Run(Project As String, Optional Tests As String)
Public Sub Run(Project As String, Optional Tests As String) As TestStats
Dim hProc As Process
@ -38,6 +38,7 @@ Public Sub Run(Project As String, Optional Tests As String)
.Delta = .Planned - .Run
.Success = .ExitCode = 0 And .Planned > 0 And .Run = .Planned And .Failed = 0
End With
Return $hStats
End