paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 23:47:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Test for RefreshLookupList

Browse Source 
git-svn-id: trunk@10502 -
This commit is contained in:
joost 2008-03-17 22:27:40 +00:00
parent b5454e0352
commit e142d31547
1 changed files with 79 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
packages/fcl-db/tests/testdatasources.pas
View File

@ -30,11 +30,12 @@ type
procedure TestDataEvent6;
procedure TestDataEvent7;
procedure TestCalcFirstRecord1;
procedure TestRefreshLookupList;
end;
implementation
uses ToolsUnit, dbf, testregistry;
uses ToolsUnit, dbf, testregistry, variants;
type THackDataset=class(TDataset);
THackDataLink=class(TDatalink);
@ -481,6 +482,83 @@ begin
end;
end;
procedure TTestDatasources.TestRefreshLookupList;
var ds, lkpDs : TDataset;
AFld1, AFld2, AFld3 : Tfield;
ExceptionOccured : boolean;
Var1,Var2 : Variant;
procedure TestLookupList;
begin
lkpDs.Open;
lkpDs.first;
while not LkpDs.eof do with AFld3 do
begin
Var1 := LkpDs.FieldValues[LookupResultField];
Var2 := LookupList.ValueOfKey(LkpDs.fieldvalues[LookupKeyFields]);
AssertEquals(VarToStr(Var1),VarToStr(Var2));
lkpDs.Next;
end;
end;
begin
ds := DBConnector.GetNDataset(15);
lkpDs := DBConnector.GetNDataset(5);
with ds do
begin
AFld1 := TIntegerField.Create(ds);
AFld1.FieldName := 'ID';
AFld1.DataSet := ds;
AFld2 := TStringField.Create(ds);
AFld2.FieldName := 'NAME';
AFld2.DataSet := ds;
AFld3 := TIntegerField.Create(ds);
with AFld3 do
begin
// Test if nothing happens when not all properties are filled
FieldName := 'LookupFld';
FieldKind := fkLookup;
DataSet := ds;
RefreshLookupList;
LookupDataSet := lkpDs;
RefreshLookupList;
LookupKeyFields:='name';
RefreshLookupList;
LookupResultField:='ID';
RefreshLookupList;
KeyFields:='name';
// Everything is filled in, this should run wihout any problems:
RefreshLookupList;
// The lookupdataset was closed, and should be closed again:
AssertFalse(lkpDs.Active);
// If some fields don't exist, check if an exception is raised:
LookupKeyFields:='faulty';
AssertException(EDatabaseError,RefreshLookupList);
LookupKeyFields:='name';
LookupResultField :='faulty';
AssertException(EDatabaseError,RefreshLookupList);
LookupResultField :='ID';
// Check if the lookuplist is correctly filled
RefreshLookupList;
TestLookupList;
// Check if the lookuplist is correctly filled when there are multiple
// fields in the key
LookupResultField:='name';
LookupKeyFields:='id;name';
RefreshLookupList;
TestLookupList;
end;
AFld1.Free;
AFld2.Free;
AFld3.Free;
end;
end;
initialization
if uppercase(dbconnectorname)='DBF' then RegisterTest(TTestDatasources);
end.