From 848e65018953c3345e0378e5dd7291aa144e7afc Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Fri, 14 Mar 2014 08:31:16 +0000
Subject: [PATCH] fcl-db: tests: comment
git-svn-id: trunk@27131 -
---
packages/fcl-db/tests/testfieldtypes.pas | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/packages/fcl-db/tests/testfieldtypes.pas b/packages/fcl-db/tests/testfieldtypes.pas
index df6edb19fa..a7db99f120 100644
--- a/packages/fcl-db/tests/testfieldtypes.pas
+++ b/packages/fcl-db/tests/testfieldtypes.pas
@@ -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