anchor.diff:    TTestSuite.New('Core.Data')
       .Add(TTest.New(TDataStreamTest))
       .Add(TTest.New(TDataGuidTest))
  +    .Add(TTest.New(TDataInformationsTest))
       ;
   
   end.
  
positive.code:     procedure SmallString;
    end;
  
  implementation
  
  { TDataStreamTest }
  
  
negative.code:   end;
  end;
  
  { TDataInformationsTest }
  
  procedure TDataInformationsTest.ReceiveInformation;
  begin
    CheckEquals(
      'foo: data',
      TDataInformations.New
        .Add(TDataInformation.New('foo', 'data'))
        .Text
    );
  end;
  
  procedure TDataInformationsTest.ReceiveInformations;
  begin
    CheckEquals(
      'foo: data 1'#13'foo: data 2'#13'foo: data 3',
      TDataInformations.New
        .Add(TDataInformation.New('foo', 'data 1'))
        .Add(TDataInformation.New('foo', 'data 2'))
        .Add(TDataInformation.New('foo', 'data 3'))
        .Text
    );
  end;
  
  procedure TDataInformationsTest.Counter;
  begin
    CheckEquals(
      3,
      TDataInformations.New
        .Add(TDataInformation.New('foo'))
        .Add(TDataInformation.New('foo'))
        .Add(TDataInformation.New('foo'))
        .Count
    );
  end;
  
  