paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 19:57:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db:: sql parser: deal with table.column notation introduced in previous commit

Browse Source 
git-svn-id: trunk@27913 -
This commit is contained in:
reiniero 2014-06-09 12:52:38 +00:00
parent c63b31c839
commit 37e44f52eb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/tests/tcparser.pas
View File

@ -3762,7 +3762,9 @@ procedure TTestSelectParser.TestSelectOneTableFieldOneTable;
begin
TestSelect('SELECT A.B FROM A');
AssertEquals('One field',1,Select.Fields.Count);
AssertField(Select.Fields[0],'B');
// Field does not support linking/refering to a table, so the field name is
// assigned as A.B (instead of B with a <link to table A>)
AssertField(Select.Fields[0],'A.B');
AssertEquals('One table',1,Select.Tables.Count);
AssertTable(Select.Tables[0],'A');
end;
@ -4334,7 +4336,9 @@ begin
AssertField(Select.Fields[0],'B');
AssertTable(Select.Tables[0],'A');
AssertEquals('One order by field',1,Select.Orderby.Count);
AssertOrderBy(Select.OrderBy[0],'C',0,obAscending);
// Field does not support linking/refering to a table, so the field name is
// assigned as C.D (instead of D with a <link to table C>)
AssertOrderBy(Select.OrderBy[0],'C.D',0,obAscending);
end;