[DUnit] Test für Double Property schlägt fehl

[mjustin]

Zitat von Zwoetzen:

Delphi-Quellcode:

procedure TestMyObject.TestDouble;
begin
  FMyObject.D := 1.23;
  CheckEquals(1.23, FMyObject.D, 'Wrong Value of D');
end;

DUnit enthält auch eine passende CheckEquals Methode für diesen Fall:
procedure CheckEquals(expected, actual: extended; delta: extended; msg: string = ''); overload; virtual; Einfach das Delta noch angeben, das maximal erlaubt ist.

Delphi-Quellcode:

procedure TestMyObject.TestDouble;
begin
  CheckEquals(1.23, FMyObject.D, 0.0001, 'Wrong Value of D');
end;