Преглед на файлове

fcl-db: tests: comment

git-svn-id: trunk@27131 -
lacak преди 11 години
родител
ревизия
848e650189
променени са 1 файла, в които са добавени 4 реда и са изтрити 5 реда
  1. 4 5
      packages/fcl-db/tests/testfieldtypes.pas

+ 4 - 5
packages/fcl-db/tests/testfieldtypes.pas

@@ -1228,7 +1228,6 @@ procedure TTestFieldTypes.TestReadOnlyParseSQL;
 begin
 begin
   with TSQLDBConnector(DBConnector) do
   with TSQLDBConnector(DBConnector) do
     begin
     begin
-
     GetFieldDataset(True);
     GetFieldDataset(True);
     with query do
     with query do
       begin
       begin
@@ -1260,7 +1259,7 @@ begin
       edit;
       edit;
       FieldByName('ID').AsInteger:=321;
       FieldByName('ID').AsInteger:=321;
       post;
       post;
-      Applyupdates;
+      ApplyUpdates;
       close;
       close;
 
 
       // If ParseSQL is true, but the supplied query isn't updateable, then
       // If ParseSQL is true, but the supplied query isn't updateable, then
@@ -1289,7 +1288,7 @@ begin
       AssertTrue(CanModify);
       AssertTrue(CanModify);
       edit;
       edit;
       post;
       post;
-      Applyupdates;
+      ApplyUpdates;
       close;
       close;
 
 
       // Also if ParseSQL is False, the query should be updateable if a update-
       // Also if ParseSQL is False, the query should be updateable if a update-
@@ -1303,9 +1302,9 @@ begin
       AssertFalse(ReadOnly);
       AssertFalse(ReadOnly);
       AssertTrue(CanModify);
       AssertTrue(CanModify);
       edit;
       edit;
-      FieldByName('ID').AsInteger:=1;
+      FieldByName('ID').AsInteger:=1; // field "ID" from UNION can be marked as ReadOnly
       post;
       post;
-      Applyupdates;
+      ApplyUpdates;
       close;
       close;
 
 
       // But if ReadOnly is true, then CanModify should always be false
       // But if ReadOnly is true, then CanModify should always be false