paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed memory leaks in tests.

Browse Source 
git-svn-id: trunk@13878 -
This commit is contained in:
sergei 2009-10-16 22:50:46 +00:00
parent e6fe8300be
commit 013fbb8566
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-xml/tests/extras.pp
View File

@ -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);

2
packages/fcl-xml/tests/extras2.pp
View File

@ -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');