paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 09:28: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
with TSQLDBConnector(DBConnector) do
begin
GetFieldDataset(True);
with query do
begin
@ -1260,7 +1259,7 @@ begin
edit;
FieldByName('ID').AsInteger:=321;
post;
Applyupdates;
ApplyUpdates;
close;
// If ParseSQL is true, but the supplied query isn't updateable, then
@ -1289,7 +1288,7 @@ begin
AssertTrue(CanModify);
edit;
post;
Applyupdates;
ApplyUpdates;
close;
// Also if ParseSQL is False, the query should be updateable if a update-
@ -1303,9 +1302,9 @@ begin
AssertFalse(ReadOnly);
AssertTrue(CanModify);
edit;
FieldByName('ID').AsInteger:=1;
FieldByName('ID').AsInteger:=1; // field "ID" from UNION can be marked as ReadOnly
post;
Applyupdates;
ApplyUpdates;
close;
// But if ReadOnly is true, then CanModify should always be false