CPAN::Groonga

nk = $_;
                   last;
               }
            }
            if ( $@ ) {
	        isnt($@, '', "Error found parsing chunk $bad_chunk");
#                $parser->parse_chunk("",1); # w

            eval {
                $doc = $parser->parse_chunk("",1);
            };
            isnt($@, '', "Got an error parsing empty chunk after chunks for $key");
        }

    }

    {
      

my $str ( @badWBStrings ) {
        eval { my $fail = $pparser->parse_xml_chunk($str); };
        isnt($@, '', "Error parsing xml chunk: '" . shorten_string($str) . "'");
    }

    {
        # 5.1.1 

L::Namespace->new('foo.com')->unique_key,
    'default foo ns key matches itself'
);

# TEST
isnt(
    XML::LibXML::Namespace->new('foo.com', 'foo')->unique_key,
    XML::LibXML::Namespace->new

om', 'bar')->unique_key,
    q[keys for ns's with different prefixes don't match]
);

# TEST
isnt(
    XML::LibXML::Namespace->new('foo.com', 'foo')->unique_key,
    XML::LibXML::Namespace->new

oo.com')->unique_key,
    q[key for prefixed ns doesn't match key for default ns]
);

# TEST
isnt(
    XML::LibXML::Namespace->new('foo.com', 'foo')->unique_key,
    XML::LibXML::Namespace->new

'test2');
$e2->setAttribute('attr' => 'value2');

my $h1 = \%{ $e1 };
my $h2 = \%{ $e2 };

# TEST
isnt $h1,$h2, 'different references';

# TEST
is $h1->{attr}, 'value1', 'affr for el 1';
# TEST
is $h2

# TEST
cmp_ok 0+$e1, '>', 1, 'num for el 1';
# TEST
cmp_ok 0+$e2, '>', 1, 'num for el 2';

# TEST
isnt 0+$e1,0+$e2, 'num for e1 and e2 differs';

my $e3 = $e1;

# TEST
ok $e3 eq $e1, 'eq';
# TEST
ok $

de disabled by default");

$doc = eval { $parser->parse_string($evil_xml); };

$err = $@;

# TEST
isnt("$err", "", "exception thrown during parse");
# TEST
like($err, qr/entity/si, "exception refers t