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

fcl-db: tests: test for bug #31532

Browse Source 
git-svn-id: trunk@35629 -
This commit is contained in:
lacak 2017-03-19 17:49:58 +00:00
parent 4582b56506
commit 93a528cd7a
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
packages/fcl-db/tests/testdbbasics.pas
View File

@ -168,6 +168,7 @@ type
procedure TestBug6893; procedure TestBug6893;
procedure TestRequired; procedure TestRequired;
procedure TestModified; procedure TestModified;
procedure TestUpdateCursorPos; // bug 31532
// fields // fields
procedure TestFieldOldValueObsolete; procedure TestFieldOldValueObsolete;
procedure TestFieldOldValue; procedure TestFieldOldValue;
@ -684,6 +685,37 @@ begin
end; end;
end; end;
procedure TTestCursorDBBasics.TestUpdateCursorPos;
var
datasource1: TDataSource;
datalink1: TDataLink;
dataset1: TDataSet;
i,r: integer;
begin
// TBufDataset should notify TDataset (TDataset.CurrentRecord) when changes internaly current record
// TBufDataset.GetRecNo was synchronizing its internal position with TDataset.ActiveRecord, but TDataset.CurrentRecord remains unchaged
// Bug #31532
dataset1 := DBConnector.GetNDataset(16);
datasource1 := TDataSource.Create(nil);
datasource1.DataSet := dataset1;
datalink1 := TDataLink.Create;
datalink1:= TDataLink.create;
datalink1.DataSource:= datasource1;
datalink1.BufferCount:= 12;
dataset1.Open;
dataset1.MoveBy(4);
CheckEquals(5, dataset1.RecNo);
for i:=13 to 15 do begin
datalink1.BufferCount := datalink1.BufferCount+1;
r := dataset1.RecNo; // syncronizes source dataset to ActiveRecord
datalink1.ActiveRecord := datalink1.BufferCount-1;
CheckEquals(i, dataset1.FieldByName('ID').AsInteger);
end;
datasource1.free;
datalink1.free;
end;
procedure TTestDBBasics.TestDetectionNonMatchingDataset; procedure TTestDBBasics.TestDetectionNonMatchingDataset;
var var
F: TField; F: TField;