Fixed memory leaks in tests.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13878 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 5 insertions, 0 deletions

diff --git a/packages/fcl-xml/tests/extras.pp b/packages/fcl-xml/tests/extras.pp
index e58786426f..15581bbd9d 100644
--- a/packages/fcl-xml/tests/extras.pp
+++ b/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);
diff --git a/packages/fcl-xml/tests/extras2.pp b/packages/fcl-xml/tests/extras2.pp
index 4e432c6fe2..dd919c47f9 100644
--- a/packages/fcl-xml/tests/extras2.pp
+++ b/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');