Contribuição com Teste Unitário

[Wesley Luan]

Bom dia pessoal,
Criei um teste unitário para a unit ACBrDFeUtil.
Gostaria de saber se há interesse por parte dos desenvolvedores.

Também adicionei mais 2 testes para a função FloatMask na unit ACBrUtilTest. Para testar a função com e sem separador de milhar.
Pois essa função foi modificada no commit 12770, passando a ser facultativo o uso do Separador de Milhar.

Segue em anexo Patch da pasta Testes.

 

Atenciosamente, Wesley Luan.

UnitTest.patch

[Juliomar Marchetti]

Anexe os arquivos e não patch fazendo favor. Obrigado

[Wesley Luan]

OK.

Segue em anexo.

ACBrDFeTestCases.dpr

ACBrDFeUtilTest.pas

acbrutiltest.pas

[EMBarbosa]

Subi suas alterações para o SVN na Revisão  12852.
Pelo que vi está tudo certo.
Favor testar e reportar qualquer problema.
Obrigado.

Nota: Ao criar o projeto de testes no Lazarus, notei alguma incompatibilidade dos testes com o Lazarus. É necessário averiguar.

 

[Daniel Simoes]

Muito obrigado pela contribuição... fiz os ajustes para rodar no Lazarus...  Não compreendi muito bem os seguintes testes... que estão acusando erro nos testes Unitários

procedure ValidaDIRETest.ComLetras_RetornaFalso;
var
  Ano, DIRE: string;
begin
  Ano := FormatDateTime('YY', Date);
....

  DIRE := Ano + 'A0000000001';
  CheckFalse(ValidaDIRE(DIRE));
end;  


procedure ValidaRETest.ComLetras_RetornaFalso;
var
  Ano, RE: string;
begin
  Ano := FormatDateTime('YY', Date);
....

  RE := Ano + 'A0000001'+ '001';
  CheckFalse(ValidaRE(RE));      
end;
       

 

[Wesley Luan]

6 horas atrás, EMBarbosa disse:

Subi suas alterações para o SVN na Revisão  12852.
Pelo que vi está tudo certo.
Favor testar e reportar qualquer problema.
Obrigado.

Nota: Ao criar o projeto de testes no Lazarus, notei alguma incompatibilidade dos testes com o Lazarus. É necessário averiguar.

 

Opa. Vlw mesmo! Fico feliz em saber que pude ajudar com o projeto, ainda que seja muito pouco...

[Wesley Luan]

2 horas atrás, Daniel Simoes disse:

Muito obrigado pela contribuição... fiz os ajustes para rodar no Lazarus...  Não compreendi muito bem os seguintes testes... que estão acusando erro nos testes Unitários

procedure ValidaDIRETest.ComLetras_RetornaFalso;
var
  Ano, DIRE: string;
begin
  Ano := FormatDateTime('YY', Date);
....

  DIRE := Ano + 'A0000000001';
  CheckFalse(ValidaDIRE(DIRE));
end;  


procedure ValidaRETest.ComLetras_RetornaFalso;
var
  Ano, RE: string;
begin
  Ano := FormatDateTime('YY', Date);
....

  RE := Ano + 'A0000001'+ '001';
  CheckFalse(ValidaRE(RE));      
end;
       

 

Valeu. Como não tenho Lazarus não pude validar...

Sobre esses testes eu fiz dessa forma pois a 1ª coisa que a função faz é remover os caracteres que não são números. Então se eu passar a string 17ABCDEFGHIJK0000001001, do jeito que a função está hoje ela será valida.

Editado 23 Janeiro, 2017 por wluan
duplicidade

[Daniel Simoes]

Mas o problema é que essas chamadas não estão retornando o esperado... (o método "ValidaRE", retorna True e não False)

[Wesley Luan]

7 horas atrás, Daniel Simoes disse:

Mas o problema é que essas chamadas não estão retornando o esperado... (o método "ValidaRE", retorna True e não False)

Sim. Ao meu ver, teoricamente, elas estão validando uma string que deveria ser inválida.

Segue em anexo a unit ACBrDFeUtil.pas corrigindo esse problema nas funções ValidaRE e ValidaDIRE.

ACBrDFeUtil.pas

[Daniel Simoes]

Apliquei as seguintes modificações no SVN

Citar

-- ACBrDFeUtil --
[*] Rafatoração dos métodos: "ValidaDIRE" e "ValidaRE", aplicando simplificação
    de código, e retornando "False", se houver caracteres não numéricos
    (por: DSA)