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.
|
||
|
|
|