Applies toTTestResult
DeclarationFunction WasSuccessful: boolean; Implementation
function TTestResult.WasSuccessful: boolean; begin result := (FailureCount = 0) and (ErrorCount() = 0) and not WasStopped; End;