paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: tests: comment

Browse Source 
git-svn-id: trunk@27131 -
This commit is contained in:
lacak 2014-03-14 08:31:16 +00:00
parent c47ff6946a
commit 848e650189
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/tests/testfieldtypes.pas
View File

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