paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +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;
end;
{ TSQLTestSetup }
TDBBasicsTestSetup = class(TTestSetup)
protected
procedure OneTimeSetup; override;
procedure OneTimeTearDown; override;
end;
implementation
uses toolsunit, SQLDBToolsUnit, sqldb, XMLDatapacketReader;
@ -446,17 +438,6 @@ begin
TestChangesApplyUpdates(@DeleteAllInsertChange, False);
end;
{ TSQLTestSetup }
procedure TDBBasicsTestSetup.OneTimeSetup;
begin
InitialiseDBConnector;
end;
procedure TDBBasicsTestSetup.OneTimeTearDown;
begin
FreeAndNil(DBConnector);
end;
initialization
if uppercase(dbconnectorname)='SQL' then
RegisterTestDecorator(TDBBasicsTestSetup, TTestBufDatasetStreams);

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

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

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

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