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

Adds test for Firebird's EXECUTE BLOCK RETURNS statement, which returns resultset. Test correct detection of StatementType. Mantis #0022972

Browse Source 
DO NOT BACKPORTABLE TO 2.6

git-svn-id: trunk@22668 -
This commit is contained in:
lacak 2012-10-16 10:57:08 +00:00
parent a178e28275
commit 382cd9483c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/tests/testfieldtypes.pas
View File

@ -1293,7 +1293,10 @@ begin
sqlite3:
statements := TTestStatements.Create('pragma table_info(FPDEV)');
interbase:
statements := TTestStatements.Create(CTE_SELECT (*FB 2.1*));
statements := TTestStatements.Create(
CTE_SELECT (*FB 2.1*),
'EXECUTE BLOCK RETURNS (U VARCHAR(255)) AS BEGIN SELECT rdb$get_context(''SYSTEM'',''CURRENT_USER'') FROM rdb$database INTO U; SUSPEND; END' (*FB 2.0*)
);
postgresql:
statements := TTestStatements.Create(CTE_SELECT);
mssql: