anchor.diff:      TXMLPack.New(TXMLFileForTest.New.Stream).Node(
         '/CONFIG/Package/CompilerOptions'
       )
  -    .Up
  +    .Parent
       .Name
     );
   end;
   
   { TXMLNodesTest }
  +
  +procedure TXMLNodesTest.RunAdd;
  +begin
  +  TXMLPack.New(TXMLStreamForTest.New).Nodes(
  +    '/root/group/item[@a=''1'']'
  +  )
  +  .Add('new')
  +end;
  +
  +procedure TXMLNodesTest.Add;
  +begin
  +  CheckException(RunAdd, EXMLError);
  +end;
   
   procedure TXMLNodesTest.Item;
   begin
  
positive.code:   James.IO,
    James.IO.Clss,
    James.Testing.Clss,
    Xavier.Core.Clss;
  
  type
    TXMLFileForTest = class(TFile)
  
negative.code: 
    TXMLChildsTest = class(TTestCase)
    published
      procedure Add;
      procedure Item;
      procedure Count;
    end;
  