From c4acd0b769398964565a685339b72b2bb89e263a Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 31 Aug 2020 17:51:47 +0000
Subject: [PATCH] test suite: FPC 3.2 compatibility fix.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7640 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/tests/test_suite/test_suite_utils.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/wst/trunk/tests/test_suite/test_suite_utils.pas b/wst/trunk/tests/test_suite/test_suite_utils.pas
index df4d9c692..ed332ddee 100644
--- a/wst/trunk/tests/test_suite/test_suite_utils.pas
+++ b/wst/trunk/tests/test_suite/test_suite_utils.pas
@@ -34,8 +34,11 @@ type
   protected
     procedure CheckEquals(expected, actual: TByteDynArray; msg: string = ''; const AStrict : Boolean = True); overload;
 {$IFDEF FPC}
+
+  {$IF (FPC_FULLVERSION < 30200) }      
     procedure CheckEquals(expected, actual: Int64; 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;
 {$ENDIF FPC}
 {$IFDEF WST_DELPHI}
@@ -149,7 +152,8 @@ end;
 
 { TWstBaseTest }
 
-{$IFDEF FPC}
+{$IFDEF FPC}       
+{$IF (FPC_FULLVERSION < 30200) }
 procedure TWstBaseTest.CheckEquals(expected, actual: Int64; msg: string;
   const AStrict: Boolean);
 begin
@@ -157,12 +161,14 @@ begin
     FailNotEquals(IntToStr(expected), IntToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI});
 end;
 
+
 procedure TWstBaseTest.CheckEquals(expected, actual: QWord; msg: string;
   const AStrict: Boolean);
 begin
   if (expected <> actual) then
     FailNotEquals(IntToStr(expected), IntToStr(actual), msg{$IFDEF WST_DELPHI}, CallerAddr{$ENDIF WST_DELPHI});
 end;
+{$IFEND}
 
 procedure TWstBaseTest.CheckEquals(expected, actual : Currency; msg : string);
 begin