anchor.diff:    );
   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.
  
positive.code: interface
  
  uses
    Classes, SysUtils, COMObj, Variants,
    James.Data.Base,
    James.Data.Clss,
    James.Data.Adapters,
  
negative.code: 
  type
    TDataStreamAsOleVariantTest = class(TTestCase)
    published
      procedure TestValue;
    end;
  
    TDataStreamAsParamTest = class(TTestCase)
    published
      procedure TestValue;
    end;
  