anchor.diff:    check(nodes.Count = 2, 'count=2');
   end;
   
  -procedure TCoreTests.TestXMLChilds;
  +procedure TXMLTests.TestChilds;
   var
     pack: IXMLPack;
     node: IXMLNode;
  
positive.code:   check(s1 = s2, 'xml');
  end;
  
  procedure TCoreTests.TestXMLPack;
  var
    pack, pack2: IXMLPack;
    mem: TMemoryStream;
  
negative.code: 
  initialization
    TTestSuite.Create('Core').Ref
      .Add(TTest.Create(TXMLTests))
      .Add(TTest.Create(TXMLNodeChildsAdapterTests))
  
  end.
  