Fixed memory leaks in tests.

git-svn-id: trunk@13878 -

packages/fcl-xml/tests/extras.pp

@@ -135,6 +135,7 @@ begin
   FParser.Options.Namespaces := True;
   domImpl := GetImplementation;
   origDoc := domImpl.createDocument(nsURI1, 'test', nil);
+  GC(origDoc);
   docElem := origDoc.documentElement;
   el := origDoc.CreateElementNS(nsURI2, 'test');
   docElem.AppendChild(el);
@@ -169,6 +170,7 @@ begin
   FParser.Options.Namespaces := True;
   domImpl := GetImplementation;
   origDoc := domImpl.createDocument(nsURI1, 'a:test', nil);
+  GC(origDoc);
   docElem := origDoc.documentElement;
   el := origDoc.CreateElementNS(nsURI2, 'b:test');
   docElem.AppendChild(el);
@@ -204,6 +206,7 @@ begin
   FParser.Options.Namespaces := True;
   domImpl := GetImplementation;
   origDoc := domImpl.createDocument(nsURI1, 'a:test', nil);
+  GC(origDoc);
   docElem := origDoc.documentElement;
   el := origDoc.CreateElementNS(nsURI2, 'b:test');
   docElem.AppendChild(el);

packages/fcl-xml/tests/extras2.pp

@@ -252,6 +252,7 @@ begin
   FParser.Options.Namespaces := True;
   domImpl := GetImplementation;
   origDoc := domImpl.createDocument(namespaceURI, 'test', nil);
+  GC(origDoc);
   docElem := origDoc.documentElement;
   docElem.setAttributeNS(namespaceURI, 'attr', 'test value');
 
@@ -288,6 +289,7 @@ begin
   FParser.Options.Namespaces := True;
   domImpl := GetImplementation;
   origDoc := domImpl.createDocument(namespaceURI, 'test', nil);
+  GC(origDoc);
   docElem := origDoc.documentElement;
   docElem.setAttributeNS(namespaceURI, 'test:attr', 'test value');