* Add test for clearfields

git-svn-id: trunk@38065 -

packages/fcl-db/tests/testdbbasics.pas

@@ -28,6 +28,7 @@ type
     // fields
     procedure TestSetFieldValues;
     procedure TestGetFieldValues;
+    procedure TestClearFields;
 
     procedure TestSupportIntegerFields;
     procedure TestSupportSmallIntFields;
@@ -1201,6 +1202,15 @@ begin
     end;
 end;
 
+procedure TTestDBBasics.TestClearFields;
+begin
+  with DBConnector.GetNDataset(true,14) do
+    begin
+    open;
+    AssertException('Cannot call clearfields when not in edit mode',EDatabaseError,ClearFields);
+    end;
+end;
+
 procedure TTestCursorDBBasics.TestDelete1;
 begin
   FTestDelete1(false);