anchor.diff:        '<?xml version="1.0" encoding="UTF-8"?>'
         + '<root>'
         + '  <group>'
  -      + '    <item a="1" b="2">'
  +      + '    <item id="1" a="1" b="2">'
         + '      <name>foo</name>'
         + '      <value>bar</value>'
         + '    </item>'
  -      + '    <item a="1" b="2">'
  +      + '    <item id="2" a="1" b="2">'
         + '      <name>foo2</name>'
         + '      <value>bar2</value>'
         + '    </item>'
  
positive.code:   published
      procedure Item;
      procedure Count;
    end;
  
    TXMLAttributeTest = class(TTestCase)
  
negative.code: procedure TXMLNodesTest.Item;
  begin
    CheckEquals(
      3,
      TXMLPack.New(TXMLStreamForTest.New).Nodes(
        '/root/group/item[@id=''1'']'
      )
      .Item(0)
      .Attrs
      .Count
    );
  end;
  
  procedure TXMLNodesTest.Count;
  begin
    CheckEquals(
      2,
      TXMLPack.New(TXMLStreamForTest.New).Nodes(
        '/root/group/item[@a=''1'']'
      )
      .Count
    );
  end;
  
  procedure TXMLNodesTest.Empty;
  begin
    CheckEquals(
      0,
      TXMLPack.New(TXMLStreamForTest.New).Nodes(
        '/root/group/item[@xpto=''otpx'']'
      )
      .Count
    );
  end;
  
      UnicodeString('foo2'),
      TXMLPack.New(TXMLStreamForTest.New).Node(
        '/root/group'
  