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

fcl-db: tests: quick fix for test for MSSQL server, which do not support overlapping or nested transactions

Browse Source 
git-svn-id: trunk@29190 -
This commit is contained in:
lacak 2014-12-01 13:46:40 +00:00
parent d04e988ff1
commit 544fe162c1
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-db/tests/testsqldb.pas
View File

@ -18,11 +18,11 @@ type
TSQLDBTestCase = class(TTestCase)
private
function GetDBC: TSQLDBConnector;
function GetSQLDBConnector: TSQLDBConnector;
protected
procedure SetUp; override;
procedure TearDown; override;
Property SQLDBConnector : TSQLDBConnector Read GetDBC;
Property SQLDBConnector : TSQLDBConnector Read GetSQLDBConnector;
end;
{ TTestTSQLQuery }
@ -33,10 +33,10 @@ type
procedure DoAfterPost(DataSet: TDataSet);
Procedure Allow;
Procedure DoApplyUpdates;
Procedure SetQueryOPtions;
Procedure SetQueryOptions;
Procedure TrySetPacketRecords;
Protected
Procedure setup; override;
Procedure Setup; override;
published
procedure TestMasterDetail;
procedure TestUpdateServerIndexDefs;
@ -227,9 +227,9 @@ begin
FMyQ.PacketRecords:=10;
end;
Procedure TTestTSQLQuery.setup;
Procedure TTestTSQLQuery.Setup;
begin
inherited setup;
inherited Setup;
SQLDBConnector.Connection.Options:=[];
end;
@ -243,7 +243,7 @@ begin
end;
end;
Procedure TTestTSQLQuery.SetQueryOPtions;
Procedure TTestTSQLQuery.SetQueryOptions;
begin
FMyQ.Options:=[sqoKeepOpenOnCommit];
@ -374,6 +374,7 @@ var
T : TSQLTransaction;
I, J : Integer;
begin
if SQLConnType in [mssql,odbc] then Ignore(STestNotApplicable);
with SQLDBConnector do
begin
TryDropIfExist('testdiscon');
@ -836,7 +837,7 @@ end;
{ TSQLDBTestCase }
function TSQLDBTestCase.GetDBC: TSQLDBConnector;
function TSQLDBTestCase.GetSQLDBConnector: TSQLDBConnector;
begin
Result:=DBConnector as TSQLDBConnector;
end;
@ -853,7 +854,7 @@ begin
DBConnector.StopTest(TestName);
if assigned(DBConnector) then
with SQLDBConnector do
if Assigned(Transaction) and not (stoUseImplicit in Transaction.Options) then
if Assigned(Transaction) and Transaction.Active and not (stoUseImplicit in Transaction.Options) then
Transaction.Rollback;
FreeDBConnector;
inherited TearDown;