forked from pool/perl-XML-LibXML
This commit is contained in:
committed by
Git OBS Bridge
parent
4335917609
commit
ae18f76332
36
perl-XML-LibXML-utf16.diff
Normal file
36
perl-XML-LibXML-utf16.diff
Normal file
@@ -0,0 +1,36 @@
|
||||
--- t/09xpath.t
|
||||
+++ t/09xpath.t
|
||||
@@ -1,7 +1,7 @@
|
||||
use Test;
|
||||
use strict;
|
||||
|
||||
-BEGIN { plan tests => 57 };
|
||||
+BEGIN { plan tests => 55 };
|
||||
use XML::LibXML;
|
||||
|
||||
my $xmlstring = <<EOSTR;
|
||||
@@ -139,12 +139,7 @@
|
||||
use utf8;
|
||||
my @nodes = $doc->findnodes("//p");
|
||||
ok (@nodes == 1);
|
||||
- skip(
|
||||
- (20700 > XML::LibXML::LIBXML_RUNTIME_VERSION)
|
||||
- ? "UTF-16 and HTML broken in libxml2 < 2.7"
|
||||
- : 0,
|
||||
- $nodes[0]->textContent, "utf-16 test with umlauts: \x{e4}\x{f6}\x{fc}\x{c4}\x{d6}\x{dc}\x{df}");
|
||||
-}
|
||||
+ }
|
||||
|
||||
{
|
||||
# from #36576
|
||||
@@ -153,9 +148,4 @@
|
||||
ok($doc);
|
||||
my @nodes = $doc->findnodes("//p");
|
||||
ok (@nodes == 1);
|
||||
- skip(
|
||||
- (20700 > XML::LibXML::LIBXML_RUNTIME_VERSION)
|
||||
- ? "UTF-16 and HTML broken in libxml2 < 2.7"
|
||||
- : 0,
|
||||
- $nodes[0]->textContent, "utf-16 test with umlauts: \x{e4}\x{f6}\x{fc}\x{c4}\x{d6}\x{dc}\x{df}");
|
||||
-}
|
||||
+ }
|
Reference in New Issue
Block a user