anchor.diff:    );
   end;
   
  -{ TDataStreamTest }
  -
  -procedure TDataStreamTest.TestAsString;
  -const
  -  TXT: string = 'Line1-'#13#10'Line2-'#13#10'Line3';
  -var
  -  Buf: TMemoryStream;
  -  Ss: TStrings;
  -begin
  -  Buf := TMemoryStream.Create;
  -  Ss := TStringList.Create;
  -  try
  -    Buf.WriteBuffer(TXT[1], Length(TXT) * SizeOf(Char));
  -    Ss.Text := TXT;
  -    CheckEquals(TXT, TDataStream.Create(Buf).Ref.AsString, 'Test Stream');
  -    CheckEquals(TXT, TDataStream.Create(TXT).Ref.AsString, 'Test String');
  -    CheckEquals(TXT+#13#10, TDataStream.Create(Ss).Ref.AsString, 'Test Strings');
  -  finally
  -    Buf.Free;
  -    Ss.Free;
  -  end;
  -end;
  -
  -procedure TDataStreamTest.TestSaveStream;
  -const
  -  TXT: string = 'ABCDEFG#13#10IJL';
  -var
  -  Buf: TMemoryStream;
  -  S: string;
  -begin
  -  Buf := TMemoryStream.Create;
  -  try
  -    TDataStream.Create(TXT).Ref.Save(Buf);
  -    SetLength(S, Buf.Size * SizeOf(Char));
  -    Buf.Position := 0;
  -    Buf.ReadBuffer(S[1], Buf.Size);
  -    CheckEquals(TXT, S);
  -  finally
  -    Buf.Free;
  -  end;
  -end;
  -
  -procedure TDataStreamTest.TestSaveStrings;
  -const
  -  TXT: string = 'ABCDEFG#13#10IJLMNO-PQRS';
  -var
  -  S: TStrings;
  -  M: TMemoryStream;
  -begin
  -  M := TMemoryStream.Create;
  -  S := TStringList.Create;
  -  try
  -    TDataStream.Create(TXT).Ref.Save(M);
  -    S.LoadFromStream(M);
  -    CheckEquals(TXT+#13#10, S.Text);
  -  finally
  -    M.Free;
  -    S.Free;
  -  end;
  -end;
  -
   { TDataParamTest }
   
   procedure TDataParamTest.TestAutoDataType;
  
positive.code:   JamesTestPlatform;
  
  type
    TDataStreamTest = class(TTestCase)
    published
      procedure TestAsString;
      procedure TestSaveStream;
      procedure TestSaveStrings;
    end;
  
    TDataParamTest = class(TTestCase)
  
negative.code: initialization
    TTestSuite.Create('Data')
      .Ref
      .Add(TTest.Create(TDataTests))
      .Add(TTest.Create(TDataParamTest))
      .Add(TTest.Create(TDataParamsTest))
      .Add(TTest.Create(TDataGuidTest))
  