From 382cd9483cae3f8d6d5c5e3296d62ab7ffa53a40 Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Tue, 16 Oct 2012 10:57:08 +0000
Subject: [PATCH] Adds test for Firebird's EXECUTE BLOCK RETURNS statement,
 which returns resultset. Test correct detection of StatementType. Mantis
 #0022972 DO NOT BACKPORTABLE TO 2.6

git-svn-id: trunk@22668 -
---
 packages/fcl-db/tests/testfieldtypes.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/tests/testfieldtypes.pas b/packages/fcl-db/tests/testfieldtypes.pas
index 059232af33..04c281e1af 100644
--- a/packages/fcl-db/tests/testfieldtypes.pas
+++ b/packages/fcl-db/tests/testfieldtypes.pas
@@ -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: