anchor.diff:    end;
   
     TXMLNodesTest = class(TTestCase)
  -  published
  +  private
  +    procedure RunAdd;
  +  published
  +    procedure Add;
       procedure Item;
       procedure Count;
       procedure Empty;
  
positive.code: 
    TXMLChildsTest = class(TTestCase)
    published
      procedure Item;
      procedure Count;
    end;
  
negative.code: end;
  
  { TXMLChildsTest }
  
  procedure TXMLChildsTest.Add;
  var
    N: IXMLNode;
    C: Integer;
  begin
    N := TXMLPack.New(TXMLStreamForTest.New).Node('/root/group/item');
    C := N.Childs.Count;
    CheckEquals(
      C + 2,
      N.Childs
        .Add('item')
        .Add('item')
        .Count
    );
  end;
  
  procedure TXMLChildsTest.Item;
  begin
  