# -*- cperl -*- # $Id: 24c14n.t,v 1.1.1.2 2007/10/10 23:04:15 ahuda Exp $ ## # these testcases are for xml canonization interfaces. # use Test; use strict; BEGIN { plan tests => 20 }; use XML::LibXML; use XML::LibXML::Common qw(:libxml); my $parser = XML::LibXML->new; { my $doc = $parser->parse_string( "<a><b/> <c/> <!-- d --> </a>" ); my $c14n_res = $doc->toStringC14N(); ok( $c14n_res, "<a><b></b> <c></c> </a>" ); $c14n_res = $doc->toStringC14N(1); ok( $c14n_res, "<a><b></b> <c></c> <!-- d --> </a>" ); } { my $doc = $parser->parse_string( '<a><b/><![CDATA[ >e&f<]]><!-- d --> </a>' ); my $c14n_res = $doc->toStringC14N(); ok( $c14n_res, '<a><b></b> >e&f< </a>' ); $c14n_res = $doc->toStringC14N(1); ok( $c14n_res, '<a><b></b> >e&f<<!-- d --> </a>' ); } { my $doc = $parser->parse_string( '<a a="foo"/>' ); my $c14n_res; $c14n_res = $doc->toStringC14N(0); ok( $c14n_res, '<a a="foo"></a>' ); } { my $doc = $parser->parse_string( '<b:a xmlns:b="http://foo"/>' ); my $c14n_res; $c14n_res = $doc->toStringC14N(0); ok( $c14n_res, '<b:a xmlns:b="http://foo"></b:a>' ); } # ----------------------------------------------------------------- # # The C14N says: remove unused namespaces, libxml2 just orders them # ----------------------------------------------------------------- # { my $doc = $parser->parse_string( '<b:a xmlns:b="http://foo" xmlns:a="xml://bar"/>' ); my $c14n_res; $c14n_res = $doc->toStringC14N(0); ok( $c14n_res, '<b:a xmlns:a="xml://bar" xmlns:b="http://foo"></b:a>' ); # would be correct, but will not work. # ok( $c14n_res, '<b:a xmlns:b="http://foo"></b:a>' ); } # ----------------------------------------------------------------- # # The C14N says: remove redundant namespaces # ----------------------------------------------------------------- # { my $doc = $parser->parse_string( '<b:a xmlns:b="http://foo"><b:b xmlns:b="http://foo"/></b:a>' ); my $c14n_res; $c14n_res = $doc->toStringC14N(0); ok( $c14n_res, '<b:a xmlns:b="http://foo"><b:b></b:b></b:a>' ); } { my $doc = $parser->parse_string( '<a xmlns="xml://foo"/>' ); my $c14n_res; $c14n_res = $doc->toStringC14N(0); ok( $c14n_res, '<a xmlns="xml://foo"></a>' ); } { my $doc = $parser->parse_string( <<EOX ); <?xml version="1.0" encoding="iso-8859-1"?> <a><b/></a> EOX my $c14n_res; $c14n_res = $doc->toStringC14N(0); ok( $c14n_res, '<a><b></b></a>' ); } print "# canonize with xpath expressions\n"; { my $doc = $parser->parse_string( <<EOX ); <?xml version="1.0" encoding="iso-8859-1"?> <a><b><c/><d/></b></a> EOX my $c14n_res; $c14n_res = $doc->toStringC14N(0, "//d" ); ok( $c14n_res, '<d></d>' ); } { my $doc = $parser->parse_string( <<EOX ); <?xml version="1.0" encoding="iso-8859-1"?> <a xmlns="http://foo/test#"><b><c/><d><e/></d></b></a> EOX my $rootnode=$doc->documentElement; my $c14n_res; $c14n_res = $rootnode->toStringC14N(0, "//*[local-name()='d']"); ok( $c14n_res, '<d></d>' ); ($rootnode) = $doc->findnodes("//*[local-name()='d']"); $c14n_res = $rootnode->toStringC14N(); ok( $c14n_res, '<d xmlns="http://foo/test#"><e></e></d>' ); $rootnode = $doc->documentElement->firstChild; $c14n_res = $rootnode->toStringC14N(0); ok( $c14n_res, '<b xmlns="http://foo/test#"><c></c><d><e></e></d></b>' ); } print "# exclusive canonicalization\n"; if (20620 > XML::LibXML::LIBXML_VERSION) { skip("skipping Exclusive C14N tests for libxml2 < 2.6.17") for 15..20; } else { my $xml1 = <<EOX; <n0:local xmlns:n0="http://something.org" xmlns:n3="ftp://example.org"> <n1:elem2 xmlns:n1="http://example.net" xml:lang="en"> <n3:stuff xmlns:n3="ftp://example.org"/> </n1:elem2> </n0:local> EOX my $xml2 = <<EOX; <n2:pdu xmlns:n1="http://example.com" xmlns:n2="http://foo.example" xml:lang="fr" xml:space="retain"> <n1:elem2 xmlns:n1="http://example.net" xml:lang="en"> <n3:stuff xmlns:n3="ftp://example.org"/> </n1:elem2> </n2:pdu> EOX my $xpath = "(//. | //@* | //namespace::*)[ancestor-or-self::*[name()='n1:elem2']]"; my $result = qq(<n1:elem2 xmlns:n1="http://example.net" xml:lang="en">\n <n3:stuff xmlns:n3="ftp://example.org"></n3:stuff>\n </n1:elem2>); my $result_n0n2 = qq(<n1:elem2 xmlns:n1="http://example.net" xmlns:n2="http://foo.example" xml:lang="en">\n <n3:stuff xmlns:n3="ftp://example.org"></n3:stuff>\n </n1:elem2>); my $doc1 = $parser->parse_string( $xml1 ); my $doc2 = $parser->parse_string( $xml2 ); { my $c14n_res = $doc1->toStringEC14N(0, $xpath); ok( $c14n_res, $result); } { my $c14n_res = $doc2->toStringEC14N(0, $xpath); ok( $c14n_res, $result); } { my $c14n_res = $doc1->toStringEC14N(0, $xpath,[]); ok( $c14n_res, $result); } { my $c14n_res = $doc2->toStringEC14N(0, $xpath,[]); ok( $c14n_res, $result); } { my $c14n_res = $doc2->toStringEC14N(0, $xpath,['n1','n3']); ok( $c14n_res, $result); } { my $c14n_res = $doc2->toStringEC14N(0, $xpath,['n0','n2']); ok( $c14n_res, $result_n0n2); } }