anchor.diff:      )
       .Attrs
       .Item(0)
  +    .Value
  +  );
  +end;
  +
  +procedure TXMLAttributesTest.ItemByName;
  +begin
  +  CheckEquals(
  +    UnicodeString('1'),
  +    TXMLPack.New(TXMLStreamForTest.New).Node(
  +      '/root/group/item'
  +    )
  +    .Attrs
  +    .Item('id')
       .Value
     );
   end;
  
positive.code: 
  { TXMLAttributesTest }
  
  procedure TXMLAttributesTest.Item;
  begin
    CheckEquals(
      UnicodeString('1'),
  
negative.code: 
    TXMLAttributesTest = class(TTestCase)
    published
      procedure ItemByIndex;
      procedure ItemByName;
      procedure Count;
    end;
  
  