[fpc-pascal] FPCUnit checking Single values

[michael.vancanneyt at wisa.be]

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;

Michael.