diff --git a/perl-XML-LibXSLT-wrongtest.diff b/perl-XML-LibXSLT-wrongtest.diff new file mode 100644 index 0000000..1e76a58 --- /dev/null +++ b/perl-XML-LibXSLT-wrongtest.diff @@ -0,0 +1,66 @@ +--- t/10functions.t ++++ t/10functions.t +@@ -1,5 +1,5 @@ + use Test; +-BEGIN { plan tests => 33 } ++BEGIN { plan tests => 31 } + use XML::LibXSLT; + + { +@@ -86,56 +86,6 @@ + } + } + +-{ +- # testcase by Elizabeth Mattijsen +- my $parser = XML::LibXML->new; +- my $xsltproc = XML::LibXSLT->new; +- +- my $xml = $parser->parse_string( <<'XML' ); +-
+-XML
+- my $xslt = $parser->parse_string( <<'XSLT' );
+-
\n)); +- } +- { +- XML::LibXSLT->register_function( +- ('http://foo', 'custom') => sub { $parser->parse_string( $aux )->findnodes('//y')->[0]; }); +- my $stylesheet = $xsltproc->parse_stylesheet($xslt); +- my $result = $stylesheet->transform($xml); +- ok ($result->serialize,qq(\n