anchor.diff:  interface
   
   uses
  -  Classes, SysUtils, Variants,
  +  Classes, SysUtils, Variants, DB, TypInfo,
     James.API,
     James.Testing.Clss;
   
  
positive.code: 
  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;
  
  
negative.code:     procedure AsString;
      procedure SaveStream;
      procedure SaveStrings;
    end;
  
    TDataParamTest = class(TTestCase)
    published
      procedure AutoDataType;
    end;
  
    TDataParamsTest = class(TTestCase)
    published
      procedure Add;
      procedure AddParam;
      procedure AddParams;
      procedure GetByIndex;
      procedure GetByName;
      procedure Count;
      procedure AsStringWithSeparator;
    end;
  
    TDataGuidTest = class(TTestCase)
  