anchor.diff:  
   type
     TDataStreamAsOleVariantTest = class(TTestCase)
  +  published
  +    procedure TestValue;
  +  end;
  +
  +  TDataStreamAsParamTest = class(TTestCase)
     published
       procedure TestValue;
     end;
  
positive.code: interface
  
  uses
    Classes, SysUtils, COMObj, Variants,
    James.Data.Base,
    James.Data.Clss,
    James.Data.Adapters,
  
negative.code:   );
  end;
  
  { TDataStreamAsParamTest }
  
  procedure TDataStreamAsParamTest.TestValue;
  var
    S: IDataStream;
    P: TParam;
  begin
    S := TDataStream.New('bar');
    P := TParam.Create(nil);
    try
      CheckEquals(
        'bar',
        TDataStreamAsParam.New(S, P).Value.AsString
      );
    finally
      P.Free;
    end;
  end;
  
  initialization
    TTestSuite.New('Core.Data')
      .Add(TTest.New(TDataStreamAsOleVariantTest))
      .Add(TTest.New(TDataStreamAsParamTest))
  
  end.
  