Fixed memory leaks in the tests

Author: pyscripter

Tests/NumberServicesTest.pas

@@ -51,6 +51,8 @@ PyTRandomInteger = class(TPyObject)
  function NbBool: Integer; override; // 26
  private
  function PerformArithmeticOp(obj: PPyObject; op: string): PPyObject;
+ public
+ destructor Destroy; override;
  end;
 
  [TestFixture]
@@ -354,6 +356,12 @@ function PyTRandomInteger.NbPositive: PPyObject; // 8
  end
 end;
 
+destructor PyTRandomInteger.Destroy;
+begin
+ FRandomInteger.Free;
+ inherited;
+end;
+
 function PyTRandomInteger.NbAbsolute: PPyObject; // 9
 begin
  with GetPythonEngine do

Tests/WrapDelphiTest.pas

@@ -176,6 +176,9 @@ procedure TTestWrapDelphi.SetupFixture;
 
 procedure TTestWrapDelphi.TearDownFixture;
 begin
+ VarClear(Rtti_Var);
+ VarClear(Rtti_Rec);
+ VarClear(Rtti_Interface);
  PythonEngine.Free;
  PyDelphiWrapper.Free;
  DelphiModule.Free;