anchor.diff:    );
   end;
   
  +{ TXMLChildsTest }
  +
  +procedure TXMLChildsTest.Item;
  +begin
  +  CheckEquals(
       UnicodeString('foo2'),
       TXMLPack.New(TXMLStreamForTest.New).Node(
         '/root/group'
  
positive.code:     .Add(TTest.New(TXMLPackTest))
      .Add(TTest.New(TXMLNodeTest))
      .Add(TTest.New(TXMLNodesTest))
      .Add(TTest.New(TXMLAttributeTest))
      .Add(TTest.New(TXMLAttributesTest))
  
  
negative.code:   );
  end;
  
  procedure TXMLChildsTest.Count;
  begin
    CheckEquals(
      2,
  