anchor.diff:  
   implementation
   
  -{ TCoreTests }
  -
  -function TCoreTests.NewPack: IXMLPack;
  +{ TXMLTests }
  +
  +function TXMLTests.NewPack: IXMLPack;
   begin
     result := TXMLPack.Create('root');
     with result.Node('/root') do
  
positive.code:   check(node.Text = 'text', 'default text');
  end;
  
  procedure TCoreTests.TestXMLNodes;
  var
    pack: IXMLPack;
    nodes: IXMLNodes;
  
negative.code:   check(s1 = s2, 'xml');
  end;
  
  procedure TXMLTests.TestPack;
  var
    pack, pack2: IXMLPack;
    mem: TMemoryStream;
  