Commit 05d9fdf8 authored by Tobias Boege's avatar Tobias Boege

Make TestRunner.Run return its result

[GB.TEST]
* BUG: TestRunner.Run returns its result TestStats now.
parent ef32c2e7
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment