TTestCase1 = class(TTestCase)
private
FPessoa : TPessoa;
protected
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestHookUp;
procedure TesteTratarCPFCNPJ;
end;
implementation
procedure TTestCase1.TestHookUp;
begin
Fail('Escreva seu próprio teste');
end;
procedure TTestCase1.TesteTratarCPFCNPJ;
var
Resultado : String;
begin
Resultado := FPessoa.TratarCPFCNPJ('123.123.123-12');
Assert(Resultado = '12312312312', 'TPessoa.TratarCPFCNPJ retornou um Erro');
end;
procedure TTestCase1.SetUp;
begin
FPessoa := TPessoa.Create;
end;
procedure TTestCase1.TearDown;
begin
FreeAndNil(FPessoa);
end;
initialization
RegisterTest(TTestCase1);
end.