AddFailure method |
Applies to
TGUITestRunner
Declaration
Procedure AddFailure(failure: TTestFailure);Implementation
procedure TGUITestRunner.AddFailure(failure: TTestFailure); var ListItem: TListItem; begin UpdateStatus; ListItem := AddFailureItem(failure); ListItem.ImageIndex := 0; if testResult.errorCount = 0 then begin TProgressBarCrack(ScoreBar).Color := clFAILURE; end; SetTreeNodeImage(TestToNode(failure.failedTest), imgFAILED); End; |
|