anchor.diff:    public
       function NewPack: IXMLPack;
     published
  -    procedure XMLPack;
  -    procedure XMLNode;
  -    procedure XMLNodes;
  -    procedure XMLChilds;
  -    procedure XMLAttribute;
  -    procedure XMLAttributes;
  +    procedure TestPack;
  +    procedure TestNode;
  +    procedure TestNodes;
  +    procedure TestChilds;
  +    procedure TestAttribute;
  +    procedure TestAttributes;
  +  end;
  +
  +  TXMLNodeChildsAdapterTests = class(TTestCase)
  +  published
  +    //procedure
     end;
   
   implementation
  
positive.code:   end;
  end;
  
  procedure TCoreTests.XMLNode;
  var
    pack: IXMLPack;
    node: IXMLNode;
  
negative.code:   check(nodes.Count = 2, 'all items');
  end;
  
  procedure TCoreTests.TestChilds;
  var
    pack: IXMLPack;
    node: IXMLNode;
  