anchor.diff:  
     TXMLAttributesTest = class(TTestCase)
     published
  -    procedure Item;
  +    procedure ItemByIndex;
  +    procedure ItemByName;
       procedure Count;
     end;
   
  
positive.code: 
  { TXMLAttributesTest }
  
  procedure TXMLAttributesTest.Item;
  begin
    CheckEquals(
      UnicodeString('1'),
  
negative.code:     )
      .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;
  