anchor.diff:    check(node.Text = 'text', 'default text');
   end;
   
  -procedure TCoreTests.TestXMLNodes;
  +procedure TXMLTests.TestNodes;
   var
     pack: IXMLPack;
     nodes: IXMLNodes;
  
positive.code:   XavierAdapters;
    
  type
    TCoreTests = class(TTestCase)
    public
      function NewPack: IXMLPack;
    published
      procedure TestXMLTextAsDataStream;
      procedure TestXMLPack;
      procedure TestXMLNode;
      procedure TestXMLNodes;
      procedure TestXMLChilds;
      procedure TestXMLAttribute;
      procedure TestXLMAttributes;
    end;
  
  
negative.code: 
  implementation
  
  { TXMLTests }
  
  function TXMLTests.NewPack: IXMLPack;
  begin
    result := TXMLPack.Create('root');
    with result.Node('/root') do
  