fcl-db: dbtestframework:

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

git-svn-id: trunk@27080 -

packages/fcl-db/tests/sdfdstoolsunit.pas

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

packages/fcl-db/tests/testdbbasics.pas

@@ -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