anchor.diff:        '<?xml version="1.0" encoding="UTF-8"?>'
         + '<root>'
         + '  <group>'
  -      + '    <item>'
  +      + '    <item a="1" b="2">'
         + '      <name>foo</name>'
         + '      <value>bar</value>'
         + '    </item>'
  -      + '    <item>'
  +      + '    <item a="1" b="2">'
         + '      <name>foo2</name>'
         + '      <value>bar2</value>'
         + '    </item>'
  
positive.code:     .Add(TTest.New(TXMLNodeTest))
      .Add(TTest.New(TXMLNodesTest))
      .Add(TTest.New(TXMLAttributeTest))
  
  end.
  
  
negative.code:     .Item(0)
      .Value(S)
      .Value
    );
  end;
  
  { TXMLAttributesTest }
  
  procedure TXMLAttributesTest.Item;
  begin
    CheckEquals(
      UnicodeString('1'),
      TXMLPack.New(TXMLStreamForTest.New).XPath(
        '/root/group/item'
      )
      .Attrs
      .Item(0)
      .Value
    );
  end;
  
  procedure TXMLAttributesTest.Count;
  begin
    CheckEquals(
      2,
      TXMLPack.New(TXMLStreamForTest.New).XPath(
        '/root/group/item'
      )
      .Attrs
      .Count
    );
  end;
  
  