anchor.diff:  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
  
positive.code: 
    TXMLChildsTest = class(TTestCase)
    published
      procedure Item;
      procedure Count;
    end;
  
negative.code:   end;
  
    TXMLNodesTest = class(TTestCase)
    private
      procedure RunAdd;
    published
      procedure Add;
      procedure Item;
      procedure Count;
      procedure Empty;
  