unit uDataModulePresupuestos_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, uROBinMessage, uROServiceComponent, uDAClientDataModule, 
  uDACDSDataTable, uDADataTable, uBizDetallesPresupuesto, uBizPresupuestos, Classes, DB, 
  uDAScriptingProvider, SysUtils, uIDataModulePresupuestos, uROWinInetHttpChannel, 
  uROClient, uDABINAdapter, uRORemoteService, DBClient, uDataModulePresupuestos;
type
  // Test methods for class TDataModulePresupuestos
  
  TestTDataModulePresupuestos = class(TTestCase)
  strict private
    FDataModulePresupuestos: TDataModulePresupuestos;
  public
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure TestDAClientDataModuleCreate;
    procedure Test_CloneDataTable;
    procedure TestGetDetalles;
    procedure TestGetItems;
    procedure TestGetNextID;
  end;

implementation

procedure TestTDataModulePresupuestos.SetUp;
begin
  FDataModulePresupuestos := TDataModulePresupuestos.Create(Nil);
end;

procedure TestTDataModulePresupuestos.TearDown;
begin
  FDataModulePresupuestos.Free;
  FDataModulePresupuestos := nil;
end;

procedure TestTDataModulePresupuestos.TestDAClientDataModuleCreate;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FDataModulePresupuestos.DAClientDataModuleCreate(Sender);
  // TODO: Validate method results
end;

procedure TestTDataModulePresupuestos.Test_CloneDataTable;
var
  ReturnValue: TDACDSDataTable;
  ADataTable: TDACDSDataTable;
begin
  // TODO: Setup method call parameters
  ReturnValue := FDataModulePresupuestos._CloneDataTable(ADataTable);
  // TODO: Validate method results
end;

procedure TestTDataModulePresupuestos.TestGetDetalles;
var
  ReturnValue: IBizDetallesPresupuesto;
begin
//  ReturnValue := FDataModulePresupuestos.GetDetalles;
  // TODO: Validate method results
end;

procedure TestTDataModulePresupuestos.TestGetItems;
var
  ReturnValue: IBizPresupuesto;
begin
  ReturnValue := FDataModulePresupuestos.GetItems;
  // TODO: Validate method results
end;

procedure TestTDataModulePresupuestos.TestGetNextID;
var
  ReturnValue: Integer;
  DataSetName: string;
begin
  // TODO: Setup method call parameters
  ReturnValue := FDataModulePresupuestos.GetNextID(DataSetName);
  // TODO: Validate method results
end;

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