paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 19:18:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Laco to improve checkequals for floats (bug ID 26172)

Browse Source 
git-svn-id: trunk@27800 -
This commit is contained in:
michael 2014-05-18 07:21:04 +00:00
parent 9b7fdfa8b0
commit 036c208426
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc
View File

@ -4,9 +4,9 @@
class procedure Check(pValue: boolean; pMessage: string = ''); class procedure Check(pValue: boolean; pMessage: string = '');
class procedure CheckEquals(expected, actual: extended; msg: string = ''); overload; class procedure CheckEquals(expected, actual: extended; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: extended; delta: extended; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: string; msg: string = ''); overload; class procedure CheckEquals(expected, actual: string; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: unicodestring; msg: string = ''); overload; class procedure CheckEquals(expected, actual: unicodestring; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: extended; delta: extended; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: integer; msg: string = ''); overload; class procedure CheckEquals(expected, actual: integer; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: boolean; msg: string = ''); overload; class procedure CheckEquals(expected, actual: boolean; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: TClass; msg: string = ''); overload; class procedure CheckEquals(expected, actual: TClass; msg: string = ''); overload;
@ -55,7 +55,13 @@ end;
class procedure TAssert.CheckEquals(expected, actual: extended; msg: string); class procedure TAssert.CheckEquals(expected, actual: extended; msg: string);
begin begin
AssertEquals(msg, expected, actual); CheckEquals(expected, actual, 0, msg);
end;
class procedure TAssert.CheckEquals(expected, actual: extended;
delta: extended; msg: string);
begin
AssertEquals(msg, expected, actual, delta);
end; end;
class procedure TAssert.CheckEquals(expected, actual: string; msg: string); class procedure TAssert.CheckEquals(expected, actual: string; msg: string);
@ -67,12 +73,6 @@ begin
AssertEquals(msg, expected, actual); AssertEquals(msg, expected, actual);
end; end;
class procedure TAssert.CheckEquals(expected, actual: extended;
delta: extended; msg: string);
begin
AssertEquals(msg, expected, actual, delta);
end;
class procedure TAssert.CheckEquals(expected, actual: integer; msg: string); class procedure TAssert.CheckEquals(expected, actual: integer; msg: string);
begin begin
AssertEquals(msg, expected, actual); AssertEquals(msg, expected, actual);