I just wanted to do some testing with my new int64-Function and I came across an error when the results exceed then maxint-limit.
I followed it down to the point that there is no CheckEquals-Function defined in the TAssert class. However there is an AssertEquals-Function
covering int64 but this is not Delphi-compatible.
So how about:
DUnitCompatibleInterface.inc // line 9 ff
class procedure CheckEquals(expected, actual: integer; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: int64; msg: string = ''); overload; // <--- new line
class procedure CheckEquals(expected, actual: boolean; msg: string = ''); overload;
[...]
// line 75 New
class procedure TAssert.CheckEquals(expected, actual: int64; msg: string);
begin
AssertEquals(msg, expected, actual);
end;
(Lazarus 1.4.4 release)