roberto
8679a9bc04
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
41 lines
1.1 KiB
ObjectPascal
41 lines
1.1 KiB
ObjectPascal
program Presupuestos_Test;
|
|
{
|
|
|
|
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
|
|
ExceptionLog,
|
|
Forms,
|
|
TestFramework,
|
|
GUITestRunner,
|
|
TextTestRunner,
|
|
uPresupuestosViewRegister,
|
|
uContactosViewRegister,
|
|
uPluginPresupuestos_Test in 'uPluginPresupuestos_Test.pas',
|
|
uHostMainForm in 'uHostMainForm.pas' {HostMainForm},
|
|
uPresupuestosController_Test in 'uPresupuestosController_Test.pas',
|
|
uDataModulePresupuestos_Test in 'uDataModulePresupuestos_Test.pas';
|
|
|
|
{$R *.RES}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(THostMainForm, HostMainForm);
|
|
uPresupuestosViewRegister.RegisterViews;
|
|
uContactosViewRegister.RegisterViews;
|
|
Application.Run;
|
|
Application.Terminate;
|
|
end.
|
|
|