paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 07:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Mantis #21922, improve testsuite for bufdatasets.

Browse Source 
Joint patch of Lacak2, Ludo Brands & Reinier Olislagers 

git-svn-id: trunk@21200 -
This commit is contained in:
marco 2012-05-02 20:46:26 +00:00
parent 614a192d87
commit 87e010462b
1 changed files with 74 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
packages/fcl-db/tests/bufdatasettoolsunit.pas
View File

@ -1,5 +1,12 @@
unit BufDatasetToolsUnit;
{ Sets up bufdataset for testing.
Tests expect Get*Dataset tho return a dataset with structure and test data, but closed.
A closed BufDataset normally has no data, so these tests won't work.
To circumvent this, this unit saves the dataset contents to file and reloads them on opening using BufDataset persistence mechanism.
}
{$mode objfpc}{$H+}
interface
@ -11,46 +18,73 @@ uses
type
{ TbufdatasetConnector }
{ TbufdatasetDBConnector }
TbufdatasetDBConnector = class(TDBConnector)
protected
private
FUniDirectional: boolean;
protected
procedure CreateNDatasets; override;
procedure CreateFieldDataset; override;
procedure DropNDatasets; override;
procedure DropFieldDataset; override;
Function InternalGetNDataset(n : integer) : TDataset; override;
Function InternalGetFieldDataset : TDataSet; override;
procedure SetTestUniDirectional(const AValue: boolean); override;
function GetTestUniDirectional: boolean; override;
end;
implementation
type
{ TPersistentBufDataSet }
TPersistentBufDataSet=class(TBufDataset)
private
TempFileName:string;
public
destructor Destroy; override;
end;
{ TPersistentBufDataSet }
destructor TPersistentBufDataSet.Destroy;
begin
Close; // no locks on TempFileName
DeleteFile(TempFileName);
inherited Destroy;
end;
{ TbufdatasetDBConnector }
procedure TbufdatasetDBConnector.CreateNDatasets;
begin
// All datasets only exist in memory, so nothing has to be done
// All datasets are created in InternalGet*Dataset
end;
procedure TbufdatasetDBConnector.CreateFieldDataset;
begin
// All datasets only exist in memory, so nothing has to be done
// All datasets are created in InternalGet*Dataset
end;
procedure TbufdatasetDBConnector.DropNDatasets;
begin
// All datasets only exist in memory, so nothing has to be done
// All datasets are created in InternalGet*Dataset and cleaned up when destroyed
end;
procedure TbufdatasetDBConnector.DropFieldDataset;
begin
// All datasets only exist in memory, so nothing has to be done
// All datasets are created in InternalGet*Dataset and cleaned up when destroyed
end;
function TbufdatasetDBConnector.InternalGetNDataset(n: integer): TDataset;
var BufDataset : TBufDataset;
var BufDataset : TPersistentBufDataSet;
i : integer;
begin
BufDataset := TBufDataset.Create(nil);
BufDataset := TPersistentBufDataSet.Create(nil);
BufDataset.FieldDefs.Add('ID',ftInteger);
BufDataset.FieldDefs.Add('NAME',ftString,50);
BufDataset.CreateDataset;
@ -62,31 +96,37 @@ begin
BufDataset.FieldByName('NAME').AsString := 'TestName' + inttostr(i);
BufDataset.Post;
end;
BufDataset.Close;
BufDataset.TempFileName:=GetTempFileName;
BufDataset.FileName:=BufDataset.TempFileName;
BufDataset.Close; // Save data into file
Result := BufDataset;
end;
function TbufdatasetDBConnector.InternalGetFieldDataset : TDataSet;
var BufDataset : TBufDataset;
var BufDataset : TPersistentBufDataSet;
i : integer;
begin
BufDataset := TBufDataset.Create(nil);
// Values >= 24:00:00.000 can't be handled by bufdataset
testTimeValues[2] := '23:59:59.000';
testTimeValues[3] := '23:59:59.003';
BufDataset := TPersistentBufDataSet.Create(nil);
with BufDataset do
begin
//todo: this is based on memds.
//check and add bufdataset supported fields
UniDirectional := FUniDirectional;
FieldDefs.Add('ID',ftInteger);
FieldDefs.Add('FSTRING',ftString,10);
FieldDefs.Add('FSMALLINT',ftSmallint);
FieldDefs.Add('FINTEGER',ftInteger);
// FieldDefs.Add('FWORD',ftWord);
// Not supported by BufDataset:
// FieldDefs.Add('FWORD',ftWord);
FieldDefs.Add('FBOOLEAN',ftBoolean);
FieldDefs.Add('FFLOAT',ftFloat);
// FieldDefs.Add('FCURRENCY',ftCurrency);
// FieldDefs.Add('FBCD',ftBCD);
FieldDefs.Add('FCURRENCY',ftCurrency);
FieldDefs.Add('FBCD',ftBCD);
FieldDefs.Add('FDATE',ftDate);
FieldDefs.Add('FTIME',ftTime);
FieldDefs.Add('FDATETIME',ftDateTime);
@ -94,7 +134,7 @@ begin
CreateDataset;
Open;
for i := 0 to testValuesCount-1 do
begin
begin
Append;
FieldByName('ID').AsInteger := i;
FieldByName('FSTRING').AsString := testStringValues[i];
@ -102,16 +142,30 @@ begin
FieldByName('FINTEGER').AsInteger := testIntValues[i];
FieldByName('FBOOLEAN').AsBoolean := testBooleanValues[i];
FieldByName('FFLOAT').AsFloat := testFloatValues[i];
ShortDateFormat := 'yyyy-mm-dd';
FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i]);
FieldByName('FCURRENCY').AsCurrency := testCurrencyValues[i];
FieldByName('FBCD').AsCurrency := testCurrencyValues[i];
FieldByName('FDATE').AsDateTime := StrToDateTime(testDateValues[i], Self.FormatSettings);
FieldByName('FTIME').AsDateTime := StrToTime(testTimeValues[i], Self.FormatSettings);
FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i];
Post;
end;
Close;
end;
BufDataset.TempFileName:=GetTempFileName;
BufDataset.FileName:=BufDataset.TempFileName;
Close; // Save data into file
end;
Result := BufDataset;
end;
procedure TbufdatasetDBConnector.SetTestUniDirectional(const AValue: boolean);
begin
FUniDirectional := AValue;
end;
function TbufdatasetDBConnector.GetTestUniDirectional: boolean;
begin
Result := FUniDirectional;
end;
initialization
RegisterClass(TbufdatasetDBConnector);
end.