int64 support in DUnitCompatibleInterface.inc (fpcunit.pp)
lazarus / 6-IDE-CodeTools

----------------------------------------------------------------------
jc99 · 2015-11-14 16:51

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
Code: [Select]    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)

----------------------------------------------------------------------
Leledumbo · 2015-11-15 09:07

I don't know where CheckEquals is defined, but I have both FPCUnit and
FPTest (highly DUnit compatible) projects sharing the same test cases
and they're all using CheckEquals. The only difference is in the uses
and RegisterTest call where FPTest suites must be registered with
additional .Suite call rather than just the test case type name.

----------------------------------------------------------------------
jc99 · 2015-11-15 21:25

it's in
<Lazarusdir>\fpc\packages\fcl-fpcunit\src\

PS: have you tried it with in64 (full range) ?
PPS: I just tried with Delphi 2010, no problem here (CheckEquals with
int64 exists)

----------------------------------------------------------------------
jc99 · 2015-11-15 21:40

Here's the Patch