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

* Moved TDBBasicsTestSetup to toolsunit

Browse Source 
git-svn-id: trunk@15373 -
This commit is contained in:
joost 2010-06-04 10:44:08 +00:00
parent 62b1698912
commit c10e229a4b
3 changed files with 20 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,14 +67,6 @@ type
procedure TestFileNameProperty; procedure TestFileNameProperty;
end; end;
{ TSQLTestSetup }
TDBBasicsTestSetup = class(TTestSetup)
protected
procedure OneTimeSetup; override;
procedure OneTimeTearDown; override;
end;
implementation implementation
uses toolsunit, SQLDBToolsUnit, sqldb, XMLDatapacketReader; uses toolsunit, SQLDBToolsUnit, sqldb, XMLDatapacketReader;
@ -446,17 +438,6 @@ begin
TestChangesApplyUpdates(@DeleteAllInsertChange, False); TestChangesApplyUpdates(@DeleteAllInsertChange, False);
end; end;
{ TSQLTestSetup }
procedure TDBBasicsTestSetup.OneTimeSetup;
begin
InitialiseDBConnector;
end;
procedure TDBBasicsTestSetup.OneTimeTearDown;
begin
FreeAndNil(DBConnector);
end;
initialization initialization
if uppercase(dbconnectorname)='SQL' then if uppercase(dbconnectorname)='SQL' then
RegisterTestDecorator(TDBBasicsTestSetup, TTestBufDatasetStreams); RegisterTestDecorator(TDBBasicsTestSetup, TTestBufDatasetStreams);

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

@ -119,14 +119,6 @@ type
procedure TestCanModifySpecialFields; procedure TestCanModifySpecialFields;
end; end;
{ TSQLTestSetup }
TDBBasicsTestSetup = class(TTestSetup)
protected
procedure OneTimeSetup; override;
procedure OneTimeTearDown; override;
end;
implementation implementation
uses toolsunit, bufdataset, variants, strutils; uses toolsunit, bufdataset, variants, strutils;
@ -2173,17 +2165,6 @@ begin
end; end;
{ TSQLTestSetup }
procedure TDBBasicsTestSetup.OneTimeSetup;
begin
InitialiseDBConnector;
end;
procedure TDBBasicsTestSetup.OneTimeTearDown;
begin
FreeAndNil(DBConnector);
end;
initialization initialization
RegisterTestDecorator(TDBBasicsTestSetup, TTestDBBasics); RegisterTestDecorator(TDBBasicsTestSetup, TTestDBBasics);
end. end.

21
packages/fcl-db/tests/toolsunit.pas
View File

@ -7,7 +7,7 @@ unit ToolsUnit;
interface interface
uses uses
Classes, SysUtils, DB; Classes, SysUtils, DB, testdecorator;
Const MaxDataSet = 35; Const MaxDataSet = 35;
@ -59,6 +59,13 @@ type
procedure StopTest; procedure StopTest;
end; end;
{ TDBBasicsTestSetup }
TDBBasicsTestSetup = class(TTestSetup)
protected
procedure OneTimeSetup; override;
procedure OneTimeTearDown; override;
end;
{ TTestDataLink } { TTestDataLink }
@ -324,6 +331,18 @@ begin
end; end;
end; end;
{ TDBBasicsTestSetup }
procedure TDBBasicsTestSetup.OneTimeSetup;
begin
InitialiseDBConnector;
end;
procedure TDBBasicsTestSetup.OneTimeTearDown;
begin
FreeAndNil(DBConnector);
end;
initialization initialization
ReadIniFile; ReadIniFile;
end. end.