Added unit tests for callbacks with four and five arguments.

Author: pyscripter

PythonForDelphi/Components/Sources/Core/UnitTests/MethodCallBackTest.pas

@@ -24,14 +24,20 @@ interface
 
 implementation
 
+
 type
+  TFourArgStdFunction = function(arg1, arg2, arg3, arg4: integer): integer; stdcall;
+  TFiveArgCdeclFunction = function(arg1, arg2, arg3, arg4, arg5: integer): integer; cdecl;
+
   TTestObj = class(TObject)
   public
     Argument1: string;
     Argument2: string;
     Argument3: string;
     function TwoArgStdFunction(arg1: string; arg2: string): integer; stdcall;
     procedure ThreeArgCdeclProcedure(arg1: string; arg2: string; arg3: string); cdecl;
+    function FourArgStdFunction(arg1, arg2, arg3, arg4: integer): integer; stdcall;
+    function FiveArgCdeclFunction(arg1, arg2, arg3, arg4, arg5: integer): integer; cdecl;
   end;
 
   TMethodCallbackTest = class(TTestCase)
@@ -46,6 +52,8 @@   TMethodCallbackTest = class(TTestCase)
     procedure TestOfObjectCallBackStdCall;
     procedure TestOfObjectCallBackCDecl;
     procedure TestDeleteCallBack;
+    procedure TestFourArgStdFunction;
+    procedure TestFiveArgCdeclFunction;
     procedure TestMemoryMgmt;
     procedure TestBug01;
   end;
@@ -58,6 +66,17 @@   TMethodCallbackTest = class(TTestCase)
 
 { TTestObj }
 
+function TTestObj.FiveArgCdeclFunction(arg1, arg2, arg3, arg4,
+  arg5: integer): integer;
+begin
+  Result := arg1 * arg4 + arg2 * arg5 + arg3;
+end;
+
+function TTestObj.FourArgStdFunction(arg1, arg2, arg3, arg4: integer): integer;
+begin
+  Result := arg1 * arg3 + arg2 * arg4;
+end;
+
 procedure TTestObj.ThreeArgCdeclProcedure(arg1, arg2, arg3: string);
 begin
   Argument1:=arg1;
@@ -204,6 +223,24 @@ procedure TMethodCallbackTest.TestDeleteOnEmptyAllocator;
   DeleteCallBack(ptr1);
 end;
 
+procedure TMethodCallbackTest.TestFiveArgCdeclFunction;
+Var
+  CallBack : TFiveArgCdeclFunction;
+begin
+   CallBack := GetCallBack(fTestObj, @TTestObj.FiveArgCdeclFunction, 5, ctCDECL);
+   CheckEquals(CallBack(1,2,3,4,5), 1*4+2*5+3);
+   DeleteCallBack(@CallBack);
+end;
+
+procedure TMethodCallbackTest.TestFourArgStdFunction;
+Var
+  CallBack : TFourArgStdFunction;
+begin
+   CallBack := GetCallBack(fTestObj, @TTestObj.FourArgStdFunction, 4, ctSTDCALL);
+   CheckEquals(CallBack(1,2,3,4), 1*3+2*4);
+   DeleteCallBack(@CallBack);
+end;
+
 procedure TMethodCallbackTest.TestMemoryMgmt;
 var
   i: integer;