unit uPresupuestosController_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, uBizPresupuestos, Classes, Contnrs, Windows, 
  Forms, SysUtils, Controls, uBizDetallesPresupuesto, uIDataModulePresupuestos,
  uPresupuestosController;
type
  // Test methods for class TPresupuestosController

  TestTPresupuestosController = class(TTestCase)
  strict private
    FPresupuestosController : IPresupuestosController;
  public
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure TestBuscarTodos;
    procedure TestVerTodos;
    procedure hola;
  end;

var
    FPresupuestosController: IPresupuestosController;

implementation

uses dialogs;


procedure TestTPresupuestosController.hola;
begin
  //
end;

procedure TestTPresupuestosController.SetUp;
begin
  FPresupuestosController := TPresupuestosController.Create;
end;

procedure TestTPresupuestosController.TearDown;
begin
  FPresupuestosController := Nil;
end;

procedure TestTPresupuestosController.TestBuscarTodos;
var
  ReturnValue: IBizPresupuesto;
begin
  ReturnValue := FPresupuestosController.BuscarTodos;

  ReturnValue.DataTable.Open;
  showmessage(IntToStr(ReturnValue.DataTable.RecordCount));
end;

procedure TestTPresupuestosController.TestVerTodos;
var
  APresupuestos: IBizPresupuesto;
begin
  APresupuestos := FPresupuestosController.BuscarTodos;
  APresupuestos.DataTable.Open;
  // TODO: Setup method call parameters
  FPresupuestosController.VerTodos(APresupuestos);
  // TODO: Validate method results
end;

initialization
  // Register any test cases with the test runner
  RegisterTest(TestTPresupuestosController.Suite);

finalization


end.

