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

* fcl-db: sql parser tests: correct SET TERM/CREATE PROCEDURE tests

Browse Source 
- One test currently fails indicating the need for more support for variables in select statements

git-svn-id: trunk@27917 -
This commit is contained in:
reiniero 2014-06-10 06:39:00 +00:00
parent 575a082272
commit a2ce52963a
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -910,12 +910,10 @@ Const
'END^'+#13+#10+ 'END^'+#13+#10+
''+#13+#10+ ''+#13+#10+
'SET TERM ; ^'; 'SET TERM ; ^';
Var
S : TSQLSetTermStatement;
begin begin
CreateParser(SQL); CreateParser(SQL);
FToFree:=Parser.Parse; Parser.ParseScript;
end; end;
procedure TTestTermParser.TestSetTermCreateProcedureVar; procedure TTestTermParser.TestSetTermCreateProcedureVar;
@ -939,12 +937,9 @@ Const
'END ^'+#13+#10+ 'END ^'+#13+#10+
'SET TERM ; ^'; 'SET TERM ; ^';
Var
S : TSQLSetTermStatement;
begin begin
CreateParser(SQL); CreateParser(SQL);
FToFree:=Parser.Parse; Parser.ParseScript;
end; end;