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

* fcl-db: fix set terminator tests when run within suite/all tests instead of single test

Browse Source 
git-svn-id: trunk@27916 -
This commit is contained in:
reiniero 2014-06-10 05:51:51 +00:00
parent ebb2f38e08
commit 575a082272
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@ type
TTestParser = Class(TSQLParser) TTestParser = Class(TSQLParser)
public public
procedure ParseStringDef(Out DT : TSQLDataType; Out Len : Integer; Out ACharset : TSQLStringtype); Procedure ParseStringDef(Out DT : TSQLDataType; Out Len : Integer; Out ACharset : TSQLStringtype);
Function ParseType(Flags : TParseTypeFlags) : TSQLTypeDefinition; Function ParseType(Flags : TParseTypeFlags) : TSQLTypeDefinition;
Function ParseConstraint : TSQLExpression; Function ParseConstraint : TSQLExpression;
Function ParseProcedureStatements : TSQLStatement; Function ParseProcedureStatements : TSQLStatement;
@ -922,22 +922,22 @@ procedure TTestTermParser.TestSetTermCreateProcedureVar;
// Procedure with variable // Procedure with variable
Const Const
SQL = SQL =
'SET TERM ^ ;'+#13+#10+ 'SET TERM ^ ;'+#13+#10+
'CREATE PROCEDURE PROCWITHVAR'+#13+#10+ 'CREATE PROCEDURE PROCWITHVAR'+#13+#10+
'RETURNS (LANGUAGES VARCHAR(15) CHARACTER SET NONE)'+#13+#10+ 'RETURNS (LANGUAGES VARCHAR(15) CHARACTER SET NONE)'+#13+#10+
'AS'+#13+#10+ 'AS'+#13+#10+
'DECLARE VARIABLE i INTEGER;'+#13+#10+ 'DECLARE VARIABLE i INTEGER;'+#13+#10+
'BEGIN'+#13+#10+ 'BEGIN'+#13+#10+
' i = 1;'+#13+#10+ ' i = 1;'+#13+#10+
' WHILE (i <= 5) DO'+#13+#10+ ' WHILE (i <= 5) DO'+#13+#10+
' BEGIN'+#13+#10+ ' BEGIN'+#13+#10+
' SELECT language_req[:i] FROM job'+#13+#10+ ' SELECT language_req[:i] FROM job'+#13+#10+
' INTO :languages;'+#13+#10+ ' INTO :languages;'+#13+#10+
' i = i +1;'+#13+#10+ ' i = i +1;'+#13+#10+
' SUSPEND;'+#13+#10+ ' SUSPEND;'+#13+#10+
' END'+#13+#10+ ' END'+#13+#10+
'END ^'+#13+#10+ 'END ^'+#13+#10+
'SET TERM ; ^'; 'SET TERM ; ^';
Var Var
S : TSQLSetTermStatement; S : TSQLSetTermStatement;
@ -987,7 +987,7 @@ end;
procedure TTestSQLParser.SetUp; procedure TTestSQLParser.SetUp;
begin begin
FParser.SetStatementTerminator(';');
end; end;
procedure TTestSQLParser.TearDown; procedure TTestSQLParser.TearDown;