BUG na RoundABNT - não suporta valores grandes

[amarildolacerda]

texto ( roundABNT(12334234.4567567567567567567,-2) );      ->     12334234,46

texto ( roundABNT(12334234.4567567567567567567,-4) );   ->     -121170,7016

texto ( roundABNT(5233.4567567567567567567,-6) );    ->     938,489461

 

Este problema ocorre na linha:

   PowValue := SimpleRoundTo( AValue * Pow, -9) ; // SimpleRoundTo elimina dizimas ;
 

[Daniel Simoes]

Você diz que esses testes causam um A.V. ou estouro de Variável  ?

Consegue inserir esses testes na FPCUnit ? (ACBrComumTestCases.lpi)

 

[amarildolacerda]

Como não tenho Lazarus, criei um projeto DELPHI...

 

ACBrComumTestCases.dpr

ACBrComumTestCases.res

acbrutiltest.pas

[Daniel Simoes]

Consegui aplicar os testes na FPCUnit

procedure RoundABNTTest.TestesEstouro;
begin
  CheckEquals( 12334234.46, RoundABNT(12334234.4567567567567567567,-2) );
  CheckEquals( 12334234.4568, RoundABNT(12334234.4567567567567567567,-4) );
  CheckEquals( 5233.456757, RoundABNT(5233.4567567567567567567,-6) );
end;   

Apliquei uma possível correção no SVN... O Truque, foi desprezar a parte inteira do Valor, que não tem influência no calculo... No final, essa parte desprezada é novamente incorporada ao resultado...