2016-11-07 12:24:10 +01:00
|
|
|
program PeopleManagerTests;
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
Delphi DUnit Test Project
|
|
|
|
|
-------------------------
|
|
|
|
|
This project contains the DUnit test framework and the GUI/Console test runners.
|
|
|
|
|
Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
|
|
|
|
|
to use the console test runner. Otherwise the GUI test runner will be used by
|
|
|
|
|
default.
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
{$IFDEF CONSOLE_TESTRUNNER}
|
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
TestCommonsU in 'TestCommonsU.pas',
|
|
|
|
|
CommonsU in '..\CommonsU.pas',
|
|
|
|
|
PersonBO in '..\BusinessObjects\PersonBO.pas',
|
2016-11-18 14:09:54 +01:00
|
|
|
PeopleModuleU in '..\Modules\PeopleModuleU.pas' {PeopleModule: TDataModule},
|
2016-11-07 12:24:10 +01:00
|
|
|
DUnitTestRunner;
|
|
|
|
|
|
|
|
|
|
{$R *.RES}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
DUnitTestRunner.RunRegisteredTests;
|
|
|
|
|
|
|
|
|
|
end.
|
