anchor.diff:    end;
   end;
   
  -{ TDataStreamAdapterTest }
  -
  -procedure TDataStreamAdapterTest.TestOleVariant;
  -var
  -  v: OleVariant;
  -  a: TDataStreamAdapter;
  -  b: TOleVariantAdapter;
  -begin
  -  a.Init(TDataStream.Create('foo'));
  -  v := a.AsOleVariant;
  -  b.Init(v);
  -  CheckEquals('foo', b.AsDataStream.AsString);
  -end;
  -
  -procedure TDataStreamAdapterTest.TestParam;
  -var
  -  s: IDataStream;
  -  p: TParam;
  -  a: TDataStreamAdapter;
  -begin
  -  s := TDataStream.Create('bar');
  -  p := TParam.Create(nil);
  -  try
  -    a.Init(s);
  -    a.ForParam(p);
  -    CheckEquals(VarToStr(p.Value), s.AsString);
  -  finally
  -    p.Free;
  -  end;
  -end;
  -
  -procedure TDataStreamAdapterTest.TestStrings;
  -var
  -  s: IDataStream;
  -  ss: TStrings;
  -  a: TDataStreamAdapter;
  -begin
  -  s := TDataStream.Create('strings');
  -  ss := TStringList.Create;
  -  try
  -    a.Init(s);
  -    a.ForStrings(ss);
  -    CheckEquals(ss.Text.TrimRight, s.AsString);
  -  finally
  -    ss.Free;
  -  end;
  -end;
  -
   initialization
     TTestSuite.Create('Data')
       .Ref
       .Add(TTest.Create(TDataTests))
       .Add(TTest.Create(TDataConstraintsTest))
       .Add(TTest.Create(TDataFileTest))
  -    .Add(TTest.Create(TDataStreamAdapterTest))
       ;
   
   end.
  
positive.code:     procedure TestPath;
      procedure TestName;
      procedure TestStream;
    end;
  
    TDataStreamAdapterTest = class(TTestCase)
    published
      procedure TestOleVariant;
      procedure TestParam;
      procedure TestStrings;
    end;
  
  implementation
  
negative.code:   TDataTests = class(TTestCase)
    published
      procedure DataStream;
      procedure DataStreamAdapterOleVariant;
      procedure DataStreamAdapterParam;
      procedure DataStreamAdapterStrings;
      procedure DataStrings;
      procedure DataParam;
      procedure DataParams;
  