~ubuntu-branches/ubuntu/trusty/libxml-libxml-perl/trusty-security

my @badWFStrings = (

"",                                        # totally empty document

XML_DECL,                                  # only XML Declaration

'<!DOCTYPE ouch [<!ENTITY foo "bar">]>',   # no good either ...

"<ouch>",                                  # single tag (tag mismatch)

"<ouch/>foo",                              # trailing junk

"<ouch>&foo;</ouch>",                      # undefind entity

"<ouch>&gt</ouch>",                        # unterminated entity

XML_DECL. '<!DOCTYPE foobar [<!ENTITY foo "bar">]><foobar &foo;="ouch"/>',          # bad placed entity

"<ouch><!---></ouch>",                     # bad comment

'<ouch><!-----></ouch>',                   # bad either... (is this conform with the spec????)

                    );

    my $doc = $parser->parse_file($goodfile);

    isa_ok($doc, 'XML::LibXML::Document');

}

eval {my $fail = $parser->parse_file($badfile1);};

like($@, qr/^$badfile1:3: parser error : Extra content at the end of the document/, "error parsing $badfile1");

 

 

my $goodXInclude = q{

<x>

 xmlns:xinclude="http://www.w3.org/2001/XInclude"

 href="test2.xml"/>

</x>

    like($@, qr/$badfile1:3: parser error : Extra content at the end of the document/, "error parsing $badfile1 in include");

    is($doc, undef, "no doc returned");

 

    eval{ $parser->processXIncludes(undef); };

    like($@, qr/^No document to process! at/, "Error parsing undef include");

 

{

    my $pparser = XML::LibXML->new();

    # 2.1 PARSING WELLFORMED DOCUMENTS

                         single7 single8 single9 multiple1 multiple2 multiple3

                         multiple9 multiple10 comment1 comment2 comment3

                         comment4 comment5 attr1 attr2 attr3

                         ns1 ns2 ns3 ns4 ns5 ns6 dtd1 dtd2) ) {

    }

 

    my @good_strings = ("<foo>", "bar", "</foo>" );

                            predocend1   => ["<A>" ],

                            predocend2   => ["<A>", "B"],

                            predocend3   => ["<A>", "<C>"],

 

    my $parser = XML::LibXML->new;

    {

            $parser->parse_chunk( $_ );

        }

        my $doc = $parser->parse_chunk("",1);

                next;

            }

 

                $doc = $parser->parse_chunk("",1);

            };

            isnt($@, '', "Got an error parsing empty chunk after chunks for $key");

    my $root = $doc->documentElement;

 

    # bad thing: i have to do some NS normalizing.

    # declarations, if a node with a new namespace is added.

 

    my $vstring = q{<foo xmlns:bar="http://foo.bar">bar<bar:bi/></foo>};

 

    # 3.6 PARSE CHUNK

 

}

 

# 4 SAXY PUSHER

    my $MAX_WF_C = 11;

    my $MAX_WB_C = 16;

 

                    wellformed1  => '<A/>',

                    wellformed2  => '<A></A>',

                    wellformed3  => '<A B="C"/>',

                    wellformed7  => '<A><K/></A>',

                    wellformed8  => '<A xmlns="xml://E"/>',

                    wellformed9  => '<F:A xmlns:F="xml://G" F:A="B">D</F:A>',

                    wellbalance1 => '<A/><A/>',

                    wellbalance2 => '<A></A><A></A>',

                    wellbalance3 => '<A B="C"/><A B="H"/>',

                    wellbalance6 => '<A><![CDATA[D]]></A><A><![CDATA[I]]></A>',

                    wellbalance7 => '<A><!--D--></A><A><!--I--></A>',

                    wellbalance8 => '<F:A xmlns:F="xml://G" F:A="B">D</F:A><J:A xmlns:J="xml://G" J:A="M">D</J:A>',

                    wellbalance10=> 'D<A/>D',

                    wellbalance11=> 'D<A/><!--D-->',

                    wellbalance12=> 'D<A/><![CDATA[D]]>',

 

 

    my $pparser = XML::LibXML->new;

    # 5.1 DOM CHUNK PARSER

 

    for ( 1..$MAX_WF_C ) {

 

    is( $parser->parse_string( $xsDoc1 )->documentElement->toString(),

        q{<A:B xmlns:A="http://D"><A:C/></A:B>} );

        $xsDoc2 );

 

    my @xaDoc1 = ('<A:B xmlns:A="http://D">','<A:C xmlns:A="h','ttp://D"/>' ,'</A:B>');

        $parser->parse_chunk( $_ );

    }

    $doc = $parser->parse_chunk( "", 1 );

        q{<A:B xmlns:A="http://D"><A:C/></A:B>} );

 

 

        $parser->parse_chunk( $_ );

    }

    $doc = $parser->parse_chunk( "", 1 );

        $xsDoc2 );

};

 

<X>&foo;</X>

EOXML

        my $parser = XML::LibXML->new();

        $parser->load_ext_dtd(1);

 

        # first time it should work

        my $doc    = $parser->parse_string( $xmldoc );

        is( $doc->documentElement()->string_value(), " test " );

 

        my $doc2   = $parser->parse_string( $xmldoc );

        is( $doc2->documentElement()->string_value(), " test " );

}

 

##

# [CG] removed again, since #7668 claims the spec is incorrect

 

##

<X>&foo;</X>

EOXML

        my $parser = XML::LibXML->new();

        $parser->load_ext_dtd(1);

 

        # first time it should work