function TDUnitDialog.AddFailureItem(failure: TTestFailure): TListItem;
var
item : TListItem;
node : TTreeNode;
begin
assert(assigned(failure));
item := FailureListView.Items.Add;
item.data := Pointer(TestToNode(failure.failedTest));
item.Caption := failure.failedTest.Name;
item.SubItems.Add(failure.thrownExceptionName);
item.SubItems.Add(failure.thrownExceptionMessage);
node := testToNode(failure.failedTest);
while node <> nil do
begin
node.Expand(false);
node := node.Parent;
end;
Result := item;
End; |