paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 00:10:19 +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)
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 ParseConstraint : TSQLExpression;
Function ParseProcedureStatements : TSQLStatement;
@ -922,22 +922,22 @@ procedure TTestTermParser.TestSetTermCreateProcedureVar;
// Procedure with variable
Const
SQL =
'SET TERM ^ ;'+#13+#10+
'CREATE PROCEDURE PROCWITHVAR'+#13+#10+
'RETURNS (LANGUAGES VARCHAR(15) CHARACTER SET NONE)'+#13+#10+
'AS'+#13+#10+
'DECLARE VARIABLE i INTEGER;'+#13+#10+
'BEGIN'+#13+#10+
' i = 1;'+#13+#10+
' WHILE (i <= 5) DO'+#13+#10+
' BEGIN'+#13+#10+
' SELECT language_req[:i] FROM job'+#13+#10+
' INTO :languages;'+#13+#10+
' i = i +1;'+#13+#10+
' SUSPEND;'+#13+#10+
' END'+#13+#10+
'END ^'+#13+#10+
'SET TERM ; ^';
'SET TERM ^ ;'+#13+#10+
'CREATE PROCEDURE PROCWITHVAR'+#13+#10+
'RETURNS (LANGUAGES VARCHAR(15) CHARACTER SET NONE)'+#13+#10+
'AS'+#13+#10+
'DECLARE VARIABLE i INTEGER;'+#13+#10+
'BEGIN'+#13+#10+
' i = 1;'+#13+#10+
' WHILE (i <= 5) DO'+#13+#10+
' BEGIN'+#13+#10+
' SELECT language_req[:i] FROM job'+#13+#10+
' INTO :languages;'+#13+#10+
' i = i +1;'+#13+#10+
' SUSPEND;'+#13+#10+
' END'+#13+#10+
'END ^'+#13+#10+
'SET TERM ; ^';
Var
S : TSQLSetTermStatement;
@ -987,7 +987,7 @@ end;
procedure TTestSQLParser.SetUp;
begin
FParser.SetStatementTerminator(';');
end;
procedure TTestSQLParser.TearDown;