anchor.diff:      procedure SetValue;
     end;
   
  +  TXMLAttributesTest = class(TTestCase)
  +  published
  +    procedure Item;
  +    procedure Count;
  +  end;
  +
   implementation
   
   { TXMLFileForTest }
  
positive.code:       '<?xml version="1.0" encoding="UTF-8"?>'
        + '<root>'
        + '  <group>'
        + '    <item>'
        + '      <name>foo</name>'
        + '      <value>bar</value>'
        + '    </item>'
        + '    <item>'
        + '      <name>foo2</name>'
        + '      <value>bar2</value>'
        + '    </item>'
  
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;
  
  