From 2592b1d662a4854a2223a0a41270918066c52175 Mon Sep 17 00:00:00 2001
From: reiniero <reiniero@idefix.freepascal.org>
Date: Mon, 10 Mar 2014 14:22:01 +0000
Subject: [PATCH] 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 |  4 +++-
 packages/fcl-db/tests/testdbbasics.pas   | 25 ++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/tests/sdfdstoolsunit.pas b/packages/fcl-db/tests/sdfdstoolsunit.pas
index 6632a4621e..823b217ecc 100644
--- a/packages/fcl-db/tests/sdfdstoolsunit.pas
+++ b/packages/fcl-db/tests/sdfdstoolsunit.pas
@@ -7,7 +7,9 @@ interface
 uses
   Classes, SysUtils, toolsunit,
   db,
-  SdfData;
+  SdfData
+  ,csvdataset {for testing}
+  ;
 
 type
 
diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas
index 36b93c9c0b..74bb3cc378 100644
--- a/packages/fcl-db/tests/testdbbasics.pas
+++ b/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