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