pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

test suite: FPC 3.2 compatibility fix.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7640 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2020-08-31 17:51:47 +00:00
parent e65cc723d5
commit c4acd0b769
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/tests/test_suite/test_suite_utils.pas
View File

@ -34,8 +34,11 @@ type
protected protected
procedure CheckEquals(expected, actual: TByteDynArray; msg: string = ''; const AStrict : Boolean = True); overload; procedure CheckEquals(expected, actual: TByteDynArray; msg: string = ''; const AStrict : Boolean = True); overload;
{$IFDEF FPC} {$IFDEF FPC}
{$IF (FPC_FULLVERSION < 30200) }
procedure CheckEquals(expected, actual: Int64; msg: string = ''; const AStrict : Boolean = True); overload; procedure CheckEquals(expected, actual: Int64; msg: string = ''; const AStrict : Boolean = True); overload;
procedure CheckEquals(expected, actual: QWord; msg: string = ''; const AStrict : Boolean = True); overload; procedure CheckEquals(expected, actual: QWord; msg: string = ''; const AStrict : Boolean = True); overload;
{$IFEND}
procedure CheckEquals(expected, actual: Currency; msg: string = ''); overload; procedure CheckEquals(expected, actual: Currency; msg: string = ''); overload;
{$ENDIF FPC} {$ENDIF FPC}
{$IFDEF WST_DELPHI} {$IFDEF WST_DELPHI}
@ -150,6 +153,7 @@ end;
{ TWstBaseTest } { TWstBaseTest }
{$IFDEF FPC} {$IFDEF FPC}
{$IF (FPC_FULLVERSION < 30200) }
procedure TWstBaseTest.CheckEquals(expected, actual: Int64; msg: string; procedure TWstBaseTest.CheckEquals(expected, actual: Int64; msg: string;
const AStrict: Boolean); const AStrict: Boolean);
begin begin
@ -157,12 +161,14 @@ begin
FailNotEquals(IntToStr(expected), IntToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI}); FailNotEquals(IntToStr(expected), IntToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI});
end; end;
procedure TWstBaseTest.CheckEquals(expected, actual: QWord; msg: string; procedure TWstBaseTest.CheckEquals(expected, actual: QWord; msg: string;
const AStrict: Boolean); const AStrict: Boolean);
begin begin
if (expected <> actual) then if (expected <> actual) then
FailNotEquals(IntToStr(expected), IntToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI}); FailNotEquals(IntToStr(expected), IntToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI});
end; end;
{$IFEND}
procedure TWstBaseTest.CheckEquals(expected, actual : Currency; msg : string); procedure TWstBaseTest.CheckEquals(expected, actual : Currency; msg : string);
begin begin