Test Case

[Waldir Paim]

De acordo com esse link http://docwiki.embarcadero.com/RADStudio/Seattle/en/How_to_convert_DUnit_Tests_to_DUnitX

 

A Embarcadero adotou um novo formato padrão para os testes.

 

Com a data marcada para o final do suporte oficial para as versões mais antigas do Delphi, como já é de conhecimento da maioria que há muitos pontos a ser observados nessa transição,
gostaria da colaboração e sugestão dos membros e coordenadores.

 

Qual caminho a ser seguido a respeito do assunto do título desse tópico?

 

A minha sugestão seria criar uma unit de compatibilidade entre o DUnit e DUnitX (na verdade já temos essa unit) para que as diversas IDEs possam rodar os testes.

 

[Daniel Simoes]

de acordo.... dá pra resolver com IFDEFs ?

[Waldir Paim]

Oi Daniel,

Da sim, mas precisa de uma unit de compatibilização.

Se me permitir posso dar andamento nesse processo e tentarei alterar somente o necessário para que os testes rodem nos Delphis e FPC.

[Daniel Simoes]

Claro que sim... Obrigado pela ajuda 

[Waldir Paim]

Daniel,

Após um estudo mais especifico nos testes acabei conseguindo fazer os testes rodar sem a unit de compatibilização que havia citado.

Fiz alguns ajustes apenas nos *.dproj

Dessa forma não foi preciso nenhuma intervenção no código fonte em si.

Segue anexo com os fontes um arquivo zipado a pasta toda, dessa forma pode apenas descompactar por cima e comparar as alterações efetuada.

ACBrComumTestCases.dpr

ACBrComumTestCases.dproj

TestesTACrTXTClass.dpr

TestesTACrTXTClass.dproj

ACBrDiversos.dpr

ACBrDiversos.dproj

grpTestesUnitarios.groupproj

Dunit.zip

[Waldir Paim]

Rodei os testes no Sealte e ele apresentou uma falha! fui verificar o problema e no debug o resultado estava correto!

Citar

procedure TAbstractTest.CheckEquals( expected,
                                     actual   : extended;
                                     delta    : extended;
                                     msg      : string = '');
const
  Infinity    =  1.0 / 0.0;
begin
  FCheckCalled := True;
  if not ((expected = Infinity) and (actual = Infinity)) then
    if ((expected = Infinity) and (actual <> Infinity)) or
       ((expected <> Infinity) and (actual = Infinity)) or
       (abs(expected-actual) > delta) then
      FailNotEquals(FloatToStr(expected), FloatToStr(actual), msg, ReturnAddress);
end;

No teste acima foi onde apresentou o erro nos testes, analisando percebi que ele faz essa checagem : 

 or (abs(expected-actual) > delta) then

Então como o teste que apresentou problema foi :

 procedure RoundABNTTest.DoctoABNTRegra2_1;
begin
  CheckEquals( 1.3, RoundABNT(1.3333, 1) );
end;

 

Como RoundABNT entrega uma resultado que é decorrente de uma série de cálculos o retorno não é exato como o teste exige.

Nesse caso foi só acrescentar uma tolerância para que ele rodasse todos os testes.

procedure RoundABNTTest.DoctoABNTRegra2_1;
begin
  CheckEquals( 1.3, RoundABNT(1.3333, 1), 0.00001 );
end;

Aproveitei e registrei um teste que tinha ficado sem registro.

Citar

initialization
  RegisterTest('ACBrComum.ACBrUtil', TiraPontosTest{$ifndef FPC}.Suite{$endif});

  Segue unit alterada.

acbrutiltest.pas

[Daniel Simoes]

Curioso que no Lazarus não ocorre esse problema de dizima decimal...

Já no SVN... muito obrigado...

 

Em relação ao tópico anterior, solicitei a ajuda do Elton... pois meu último Delphi é o XE7 (que ainda usa DUNIT)

[Waldir Paim]

Rode ai no XE7 a alteração que fiz foi apenas a inclusão do parâmetro abaixo nos *.dproj.      

<DCC_UnitSearchPath>$(BDS)\Source\DUnit\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>

vjea: $(BDS)\Source\DUnit\src 

observe que mesmo no Seatle esta usando DUnit.

[EMBarbosa]

Olá Waldir,

 Os arquivos dropj e groupproj não são necessários para os testes. Na verdade eles são específicos para cada versão do Delphi. Eu apenas deixei eles no SVN pois achei que isso facilitaria o seu uso.

  Por isso, faça um teste pra mim, por favor.

1. Remova os arquivos dproj e groupproj.
2. Abra os arquivos dpr e execute os testes.
3. Copie e cole aqui mensagens de erros caso aconteçam.

 

[Waldir Paim]

Elton,

Citar

  -NBC:\Users\Public\Documents\Embarcadero\Studio\17.0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\17.0\hpp\Win32   ACBrComumTestCases.dpr   
[dcc32 Fatal Error] ACBrComumTestCases.dpr(22): F2051 Unit GUITestRunner was compiled with a different version of DUnitX.TestFramework.ITest
Failed

Ele não roda a menos que eu faça como descrevi aqui:

Citar

Rode ai no XE7 a alteração que fiz foi apenas a inclusão do parâmetro abaixo nos *.dproj.      

<DCC_UnitSearchPath>$(BDS)\Source\DUnit\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>

vjea: $(BDS)\Source\DUnit\src 

observe que mesmo no Seatle esta usando DUnit.

 

[EMBarbosa]

O que está acontecendo é que por algum motivo, o Delphi está se confundindo e utilizando uma unit do DUnitX ao invés do DUnit. O problema de utilizar sua versão dos arquivos dproj é que isso tornaria esses arquivos incompatíveis com as versões anteriores do Delphi.

Fiz um commit para tentar sanar o problema. Favor verificar.

[Waldir Paim]

Aqui rodou os três testes.

Quando sobrar um tempo vou te propor uma alteração nesses testes.

Mas por enquanto acredito que já podemos encerrar esses tópico.