anchor.diff:  procedure TXMLNodeTest.Name;
   begin
     CheckEquals(
  -    UnicodeString('CompilerOptions'),
  +    XMLString('CompilerOptions'),
       TXMLPack.New(TXMLFileForTest.New.Stream).Node(
         '/CONFIG/Package/CompilerOptions'
       )
  
positive.code: procedure TXMLNodeTest.GetValue;
  begin
    CheckEquals(
      UnicodeString('foo'),
      TXMLPack.New(TXMLStreamForTest.New).Node(
        '/root/group/item/name'
      )
  
negative.code: 
  procedure TXMLAttributeTest.SetValue;
  var
    S: XMLString;
  begin
    S := 'cyclop';
    CheckEquals(
  