roberto
e95789f617
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@70 0c75b7a4-871f-7646-8a2f-f78d34cc349f
57 lines
1.3 KiB
ObjectPascal
57 lines
1.3 KiB
ObjectPascal
unit uPluginPresupuestos_Test;
|
|
{
|
|
|
|
Delphi DUnit Test Case
|
|
----------------------
|
|
This unit contains a skeleton test case class generated by the Test Case Wizard.
|
|
Modify the generated code to correctly setup and call the methods from the unit
|
|
being tested.
|
|
|
|
}
|
|
|
|
interface
|
|
|
|
uses
|
|
TestFramework, ActnList, uPluginPresupuestos, Classes, ImgList, uInterfaces,
|
|
uModuleController, uHostManager, PngImageList, Controls, Menus;
|
|
type
|
|
// Test methods for class TPluginPresupuestos
|
|
|
|
TestTPluginPresupuestos = class(TTestCase)
|
|
strict private
|
|
FPluginPresupuestos: TPluginPresupuestos;
|
|
public
|
|
procedure SetUp; override;
|
|
procedure TearDown; override;
|
|
published
|
|
procedure TestactPresupuestosExecute;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TestTPluginPresupuestos.SetUp;
|
|
begin
|
|
FPluginPresupuestos := TPluginPresupuestos.Create(Nil);
|
|
end;
|
|
|
|
procedure TestTPluginPresupuestos.TearDown;
|
|
begin
|
|
FPluginPresupuestos.Free;
|
|
FPluginPresupuestos := nil;
|
|
end;
|
|
|
|
procedure TestTPluginPresupuestos.TestactPresupuestosExecute;
|
|
var
|
|
Sender: TObject;
|
|
begin
|
|
// TODO: Setup method call parameters
|
|
// FPluginPresupuestos.actPresupuestosExecute(Sender);
|
|
// TODO: Validate method results
|
|
end;
|
|
|
|
initialization
|
|
// Register any test cases with the test runner
|
|
RegisterTest(TestTPluginPresupuestos.Suite);
|
|
end.
|
|
|