Author: jasons
Date: Sat Dec 3 08:07:30 2005
New Revision: 351970
URL: http://svn.apache.org/viewcvs?rev=351970&view=rev
Log:
added leak output
Modified:
xerces/xerces-p/trunk/scripts/memtest-light.pl
Modified: xerces/xerces-p/trunk/scripts/memtest-light.pl
URL:
http://svn.apache.org/viewcvs/xerces/xerces-p/trunk/scripts/memtest-light.pl?rev=351970&r1=351969&r2=351970&view=diff
==============================================================================
--- xerces/xerces-p/trunk/scripts/memtest-light.pl (original)
+++ xerces/xerces-p/trunk/scripts/memtest-light.pl Sat Dec 3 08:07:30 2005
@@ -31,7 +31,7 @@
test names:
dom : use a DOM parser (default)
- dom : use a SAX parser
+ sax : use a SAX parser
domcreate : create a DOM tree
nodemap : check DOMNamedNodeMap for leaks
nodelist : check DOMNodeList for leaks
@@ -257,7 +257,11 @@
$iter_leak,
$iter_unit,
;
- printf STDOUT ", elements leaked = %d: \n", scalar @LEAK;
+ if (exists $OPTIONS{leak}) {
+ printf STDOUT ", elements leaked = %d: \n", scalar @LEAK;
+ } else {
+ printf STDOUT "\n";
+ }
} elsif ($count == 5) {
my ($proc) = get_proc($$);
$starting_size = $proc->size();
@@ -375,9 +379,9 @@
sub test_dom_create {
my $domImpl =
XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
- my $dt = eval{$domImpl->createDocumentType('x', '', '')};
- XML::Xerces::error($@) if $@;
- my $document = $domImpl->createDocument('myns', 'HISTORY', $dt);
+# my $dt = eval{$domImpl->createDocumentType('x', '', '')};
+# XML::Xerces::error($@) if $@;
+ my $document = $domImpl->createDocument('myns', 'HISTORY', undef);
# Default prefix
$document->getDocumentElement->setAttributeNS("http://www.w3.org/2000/xmlns/";,
"xmlns:myns", 'myns');
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
