anchor.diff:    TTestSuite.New('Core.Data')
       .Add(TTest.New(TDataStreamTest))
       .Add(TTest.New(TDataGuidTest))
  +    .Add(TTest.New(TDataInformationsTest))
       ;
   
   end.
  
positive.code:   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
    );
  end;
  
  
negative.code:     procedure SmallString;
    end;
  
    TDataInformationsTest = class(TTestCase)
    published
      procedure ReceiveInformation;
      procedure ReceiveInformations;
      procedure Counter;
    end;
  
  implementation
  
  { 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
    );
  end;
  
  { TDataStreamTest }
  
  