Fixed memory leaks in the tests

pyscripter · pyscripter · commit 259d2e72d054 · 2020-10-27T05:37:58.000+02:00
diff --git a/Tests/NumberServicesTest.pas b/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
diff --git a/Tests/WrapDelphiTest.pas b/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;
