anchor.diff:      .Add(TTest.New(TXMLPackTest))
       .Add(TTest.New(TXMLNodeTest))
       .Add(TTest.New(TXMLNodesTest))
  +    .Add(TTest.New(TXMLChildsTest))
       .Add(TTest.New(TXMLAttributeTest))
       .Add(TTest.New(TXMLAttributesTest))
   
  
positive.code: procedure TXMLAttributesTest.Count;
  begin
    CheckEquals(
      2,
      TXMLPack.New(TXMLStreamForTest.New).Node(
        '/root/group/item'
      )
  
negative.code:     procedure Count;
      procedure Empty;
    end;
  
    TXMLChildsTest = class(TTestCase)
    published
      procedure Item;
      procedure Count;
    end;
  
    TXMLAttributeTest = class(TTestCase)
  