[fpc-pascal] FPCUnit checking Single values
idokan at gmail.com
Fri Nov 2 16:28:03 CET 2012
On Fri, Nov 2, 2012 at 4:01 PM, <michael.vancanneyt at wisa.be> wrote:
> On Fri, 2 Nov 2012, ik wrote:
>> 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 :)
> fpc-pascal maillist - fpc-pascal at lists.freepascal.org
More information about the fpc-pascal