Projeto para treinar Testes Unitários em Delphi utilizando
- Testa
procedure TPEssoa.TrataCPFCNPJ(aValue: String) : String;
- Testa
procedure TPessoa.TrataCPFCNPJ(aValue: String) : String
com TestCase
- Testa
procedure TPessoa.TrataCPFCNPJ(aValue: String) : String
com AreEqual
- Testa
TPessoa.ValidaCampos
;
- Testa
TPessoaDAO.Insert
- Testa
TPessoaDAO.Create(aLog: iLog)
; - Delphi Mocks é utilizado quando desejamos testar classes que tem injeção de dependência.
- Atribuir
{$M+}
na classe a ser testada para permitir RTTI que irá criar uma Interface Virtual para o teste; - No teste utilizar
TPessoaDAO.Create(TStub<iLog>.Create);
- Testa
TPessoaDAO.Create(aLog: iLog; aSession: iSession);
var
Mock : TMock;
begin
Mock : TMock<iSession>.Create;
Mock.Setup.WillReturn('user_teste');
code...
TPessoaDAO.Create(TStub<iLog>.Create; Mock);
end;