paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 00:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

sql parser: add test for SQL generation of fields with path

Browse Source 
git-svn-id: trunk@46422 -
(cherry picked from commit 67d2c51b8d)
This commit is contained in:
ondrej 2020-08-14 10:15:40 +00:00 committed by marcoonthegit
parent 24571f17f2
commit 431ac990a1
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-db/tests/tcgensql.pas
View File

@ -64,6 +64,7 @@ type
Procedure TestValueLiteral;
Procedure TestLiteralExpression;
Procedure TestSelectField;
Procedure TestSelectFieldWithPath;
Procedure TestSimpleTablereference;
Procedure TestSimpleSelect;
Procedure TestAnyExpression;
@ -416,6 +417,24 @@ begin
AssertSQL(F,'A AS B');
end;
procedure TTestGenerateSQL.TestSelectFieldWithPath;
Var
I : TSQLIdentifierExpression;
F : TSQLSelectField;
begin
I:=CreateIdentifierExpression('A');
I.AddIdentifierToPath(CreateIdentifier('B'));
I.AddIdentifierToPath(CreateIdentifier('C'));
F:=CreateSelectField(I,'');
AssertSQL(F,'A.B.C', []);
AssertSQL(F,'"A"."B"."C"',[sfoDoubleQuoteIdentifier]);
AssertSQL(F,'`A`.`B`.`C`',[sfoBackQuoteIdentifier]);
AssertSQL(F,'''A''.''B''.''C''',[sfoSingleQuoteIdentifier]);
FTofree:=F;
end;
procedure TTestGenerateSQL.TestSimpleTablereference;
Var