anchor.diff:  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'
  
positive.code:       '<?xml version="1.0" encoding="UTF-8"?>'
        + '<root>'
        + '  <group>'
        + '    <item a="1" b="2">'
        + '      <name>foo</name>'
        + '      <value>bar</value>'
        + '    </item>'
        + '    <item a="1" b="2">'
        + '      <name>foo2</name>'
        + '      <value>bar2</value>'
        + '    </item>'
  
negative.code:   published
      procedure Item;
      procedure Count;
      procedure Empty;
    end;
    end;
  
    TXMLAttributeTest = class(TTestCase)
  