86 lines
1.9 KiB
ObjectPascal
86 lines
1.9 KiB
ObjectPascal
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.
|
|
|