Test suite : fix memory leaks.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@913 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/tests/test_suite/test_parsers.pas

@@ -272,6 +272,7 @@ begin
   CheckEquals(x_empty,mdl.Name);
   CheckEquals(x_targetNamespace,tr.GetExternalName(mdl));
   CheckEquals(0,mdl.InterfaceSection.Declarations.Count);
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.SimpleType_Enum();
@@ -319,6 +320,8 @@ begin
     aliasType := elt as TPasAliasType;
     CheckNotNull(aliasType.DestType);
     CheckEquals(x_enumSampleType, tr.GetExternalName(aliasType.DestType));
+
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.SimpleType_Enum_Embedded();
@@ -356,6 +359,8 @@ begin
       end;
       CheckEquals(x_enumSampleLIST[i],tr.GetExternalName(enumVal));
     end;
+
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.SimpleType_AliasToNativeType();
@@ -401,6 +406,8 @@ begin
     CheckNotNull(aliasType.DestType);
     CheckIs(aliasType.DestType,TPasNativeSimpleType);
     CheckEquals('WideString',aliasType.DestType.Name);
+
+  FreeAndNil(tr);
 end;
 
 type
@@ -433,6 +440,7 @@ var
   i : Integer;
   prpLs : TList;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Class_Schema();
@@ -515,6 +523,7 @@ begin
         CheckProperty(x_intAtt + 'Ex','int',ptAttribute);
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -605,6 +614,7 @@ var
   i : Integer;
   prpLs : TList;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Class_Embedded_Schema();
@@ -644,6 +654,7 @@ begin
 
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -751,6 +762,7 @@ begin
   finally
     ls.Free();
   end;
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.ComplexType_Class_open_extension_type_any();
@@ -780,6 +792,7 @@ begin
   finally
     ls.Free();
   end;
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.ComplexType_Class_open_extension_type_anyAttribute();
@@ -808,6 +821,7 @@ begin
   finally
     ls.Free();
   end;
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.ComplexType_Class_sequence_open_type_anyAttribute();
@@ -836,6 +850,7 @@ begin
   finally
     ls.Free();
   end;
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.ComplexType_Class_all_open_type_anyAttribute();
@@ -864,6 +879,7 @@ begin
   finally
     ls.Free();
   end;
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.ComplexType_Class_FalseArray();
@@ -892,6 +908,7 @@ var
   prpLs : TList;
   prp : TPasProperty;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Class_FalseArray();
@@ -936,6 +953,7 @@ begin
         CheckEquals(x_intField + 'Ex', tr.GetArrayItemExternalName(TPasArrayType(prp.VarType)));
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -965,6 +983,7 @@ var
   i : Integer;
   prpLs : TList;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Record_Schema();
@@ -1029,6 +1048,7 @@ begin
 
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1057,6 +1077,7 @@ var
   i : Integer;
   prpLs : TList;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Record_Embedded_Schema();
@@ -1112,6 +1133,7 @@ begin
 
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1142,6 +1164,7 @@ var
   prpLs : TList;
   nestedClassName : string;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_ArraySequence_Schema();
@@ -1199,6 +1222,7 @@ begin
 
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1228,6 +1252,8 @@ begin
     CheckEquals('EmailAddress',tr.GetExternalName(arrayType.ElType));
     CheckEquals('EmailAddress',tr.GetArrayItemName(arrayType));
     CheckEquals('EmailAddress',tr.GetArrayItemExternalName(arrayType));
+
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.ComplexType_ArraySequence_Embedded();
@@ -1257,6 +1283,7 @@ var
   prpLs : TList;
   nestedClassName : string;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_ArraySequence_Schema();
@@ -1314,6 +1341,7 @@ begin
 
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1377,6 +1405,7 @@ var
   prpLs : TList;
   nestedClassName : string;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_CollectionSequence_Schema();
@@ -1436,6 +1465,7 @@ begin
 
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1594,6 +1624,7 @@ var
   i : Integer;
   prpLs : TList;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Class_default_values();
@@ -1626,6 +1657,7 @@ begin
         CheckProperty(x_intAtt,'int',ptAttribute,'789');
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1667,6 +1699,7 @@ var
   i : Integer;
   prpLs : TList;
 begin
+  tr := nil;
   prpLs := TList.Create();
   try
     tr := LoadComplexType_Class_properties_extended_metadata();
@@ -1696,6 +1729,7 @@ begin
         CheckProperty(x_intAtt,'int',ptAttribute,'', '', '', '');
   finally
     FreeAndNil(prpLs);
+    FreeAndNil(tr);
   end;
 end;
 
@@ -1740,6 +1774,7 @@ begin
       CheckNotNull(p,'Property non found : "ProjectLeaderArray"');
       CheckEquals('uri:sample#Person', tr.Properties.GetValue(p,'commonj.sdo#propertyType'), 'extended metadata');
 
+  FreeAndNil(tr);
 end;
 
 procedure TTest_CustomXsdParser.class_ansichar_property();