File: 80registryleak.t

package info (click to toggle)
libxml-libxml-perl 2.0116%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 2,420 kB
  • sloc: perl: 6,139; ansic: 3,752; xml: 182; sh: 64; makefile: 8
file content (24 lines) | stat: -rw-r--r-- 385 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 

use strict;
use warnings;

use Test::More tests => 2;
use XML::LibXML;

my $p = XML::LibXML->new();
# TEST
ok($p, 'Parser was initialized.');

my $xml = <<EOX;
<?xml version="1.0"?>
<root><child/></root>
EOX

{
my $doc = $p->parse_string($xml);
my $root = $doc->documentElement;
my $child = $root->firstChild;
}

# TEST
is (scalar(XML::LibXML::_leaked_nodes()), 0, '0 leaked nodes');