anchor.diff:  interface
   
   uses
  -  Classes, SysUtils, Variants,
  +  Classes, SysUtils, Variants, DB, TypInfo,
     James.API,
     James.Testing.Clss;
   
  
positive.code:     procedure AsString;
      procedure SaveStream;
      procedure SaveStrings;
    end;
  
    TDataGuidTest = class(TTestCase)
  
negative.code: 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;
  
  initialization
    TTestSuite.New('Core.Data')
      .Add(TTest.New(TDataStreamTest))
      .Add(TTest.New(TDataParamTest))
      .Add(TTest.New(TDataParamsTest))
      .Add(TTest.New(TDataGuidTest))
      ;
  
  