anchor.diff:  procedure TXMLNodeTest.Name;
   begin
     CheckEquals(
  -    UnicodeString('CompilerOptions'),
  +    XMLString('CompilerOptions'),
       TXMLPack.New(TXMLFileForTest.New.Stream).Node(
         '/CONFIG/Package/CompilerOptions'
       )
  
positive.code: procedure TXMLAttributeTest.GetValue;
  begin
    CheckEquals(
      UnicodeString('xavier'),
      TXMLPack.New(TXMLFileForTest.New.Stream).Node(
        '/CONFIG/Package/Name'
      )
  
negative.code: procedure TXMLAttributesTest.ItemByName;
  begin
    CheckEquals(
      XMLString('1'),
      TXMLPack.New(TXMLStreamForTest.New).Node(
        '/root/group/item'
      )
  