[fpc-pascal] FPCUnit checking Single values

[ik]

On Fri, Nov 2, 2012 at 4:01 PM,  <michael.vancanneyt at wisa.be> wrote:
>
>
> On Fri, 2 Nov 2012, ik wrote:
>
>> Hello,
>>
>> I'm trying to check Single value.
>>
>> I'm doing the following:
>>
>> a := 1.1;
>> b := 1.1;
>> CheckEquals(a, b, Format('val %f does not equal %f', [a, b]));
>>
>> It reports an error, one of them are 1.1 and the other is 1,10 .
>> I know about the possible drifts of floating points, but how can I
>> create a test for such type of values ?
>
>
> Use the delta:
>
> class procedure AssertEquals(const AMessage: string; Expected, Actual,
> Delta: double); overload;
>
> or, if you insist on using the Delphi compatibility layer:
>
> class procedure CheckNotEquals(expected: extended; actual: extended; delta:
> extended = 0; msg: string = ''); overload; virtual;

Thanks, and It helped me also find that the current drift was a bug in
my own code as well :)

>
> Michael.
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal