anchor.diff:  interface
   
   uses
  -  Classes, SysUtils,
  +  Classes, SysUtils, Variants,
     James.Data,
     James.Data.Clss,
     James.Testing.Clss;
  
positive.code:   end;
  end;
  
  initialization
    TTestSuite.New('Data')
      .Add(TTest.New(TDataStreamTest));
  
  end.
  
negative.code:     procedure AsString;
      procedure SaveStream;
      procedure SaveStrings;
    end;
  
    TDataGuidTest = class(TTestCase)
    published
      procedure NewGuid;
      procedure NullGuid;
      procedure ValueAsVariant;
      procedure ValueWithoutBrackets;
      procedure SmallString;
    end;
  
  implementation
  