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

fcl-db: dbtestframework:

Browse Source 
* reintroduced cleaned up version of r27073 bufdataset memo edited field readback test as it still fails

git-svn-id: trunk@27080 -
This commit is contained in:
reiniero 2014-03-10 14:22:01 +00:00
parent 5d71687901
commit 2592b1d662
2 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/tests/sdfdstoolsunit.pas
View File

@ -7,7 +7,9 @@ interface
uses
Classes, SysUtils, toolsunit,
db,
SdfData;
SdfData
,csvdataset {for testing}
;
type

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

@ -80,6 +80,7 @@ type
procedure TestDoubleDelete;
procedure TestReadOnly;
procedure TestMergeChangeLog;
procedure TestEditedBlobBeforePost; //bug 15376
// index tests
procedure TestAddIndexInteger;
procedure TestAddIndexSmallInt;
@ -1741,6 +1742,30 @@ begin
end;
end;
procedure TTestBufDatasetDBBasics.TestEditedBlobBeforePost;
// Edit memo fields should read back new contents even before post
// Bug 15376
var
ds : TBufDataset;
begin
ds := TBufDataset.Create(nil);
DS.FieldDefs.Add('ID',ftInteger);
DS.FieldDefs.Add('NAME',ftString,50);
DS.FIeldDefs.Add('MEMO1',ftMemo);
DS.CreateDataset;
DS.Open;
with DS do
begin
Append;
FieldByName('ID').AsInteger:=1;
FieldByName('NAME').AsString:='NAME1';
FieldByName('MEMO1').AsString:='NAME1';
CheckEquals('NAME1',FieldByName('MEMO1').AsString,'Memo field must match before post');
Post;
end;
DS.Close;
end;
procedure TTestBufDatasetDBBasics.FTestXMLDatasetDefinition(ADataset: TDataset);
var i : integer;
begin