99 lines
2.6 KiB
ObjectPascal
99 lines
2.6 KiB
ObjectPascal
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.
|
|
|