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.

