anchor.diff:    end;
   end;
   
  -{ TDataGuidTest }
  -
  -procedure TDataGuidTest.NewGuid;
  -begin
  -  StringToGUID(TDataGuid.New.AsString);
  -end;
  -
  -procedure TDataGuidTest.NullGuid;
  -begin
  -  CheckEquals(
  -    TNullGuid.New.AsString,
  -    TDataGuid.New('foo').AsString
  -  );
  -end;
  -
  -procedure TDataGuidTest.ValueAsVariant;
  -begin
  -  CheckEquals(
  -    TNullGuid.New.AsString,
  -    TDataGuid.New(NULL).AsString
  -  );
  -end;
  -
  -procedure TDataGuidTest.ValueWithoutBrackets;
  -const
  -  G: string = 'FCCE420A-8C4F-4E54-84D1-39001AE344BA';
  -begin
  -  CheckEquals(
  -    '{' + G + '}',
  -    TDataGuid.New(G).AsString
  -  );
  -end;
  -
  -procedure TDataGuidTest.SmallString;
  -const
  -  V = '89000BC9';
  -  G = '{'+V+'-5700-43A3-B340-E34A1656F683}';
  -begin
  -  CheckEquals(
  -    V, TDataGuid.New(G).AsSmallString
  +{ 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;
   
  
positive.code:     procedure SmallString;
    end;
  
  implementation
  
  { TDataStreamTest }
  
  
negative.code:   TTestSuite.New('Core.Data')
      .Add(TTest.New(TDataStreamTest))
      .Add(TTest.New(TDataGuidTest))
      .Add(TTest.New(TDataInformationsTest))
      ;
  
  end.
  