anchor.diff:  uses
     James.Testing.Clss,
     James.Format.XML.Clss,
  +  James.Data.Stream.Tests,
     James.Tests.Template.Clss;
   
   type
  
positive.code:     Root := Template.Document.DocumentElement;
      CheckNotNull(
        Root
          .FindNode('TDataDividedStreamTest'),
        'TDataDividedStreamTest node not exists'
      );
      CheckNotNull(
        Root
          .FindNode('TDataDividedStreamTest')
          .FindNode('files'),
        'Files node not exists'
      );
      CheckNotNull(
        Root
          .FindNode('TDataDividedStreamTest')
          .FindNode('files')
          .FindNode('file'),
        'File node not exists'
  
negative.code:     Root := Template.Document.DocumentElement;
      CheckNotNull(
        Root
          .FindNode(TDataPartialFromTextStreamTest.ClassName),
        TDataPartialFromTextStreamTest.ClassName +' node not exists'
      );
      CheckNotNull(
        Root
          .FindNode(TDataPartialFromTextStreamTest.ClassName)
          .FindNode('files'),
        'Files node not exists'
      );
      CheckNotNull(
        Root
          .FindNode(TDataPartialFromTextStreamTest.ClassName)
          .FindNode('files')
          .FindNode('file'),
        'File node not exists'
  