| Subject: | [PATCH] Broken test on perl 5.8.0: 15_multibyte.t |
Perl 5.8.0 does not have the function utf8::is_utf8(), but
Parse::CPAN::Meta::HAVE_UTF8 checks only that Perl is higher than 5.7.3.
This check is OK, but a test is failing because it uses is_utf8.
So the following test of t/15_multibyte.t does not pass:
SKIP: {
skip "no utf8 support", 1 unless Parse::CPAN::Meta::HAVE_UTF8();
ok( utf8::is_utf8($yaml[0]->{author}), "utf8 decoded" );
}
[FIX]
Replace the code with the following lines:
SKIP: {
skip "no utf8 support", 1 unless Parse::CPAN::Meta::HAVE_UTF8();
is( length($yaml[0]->{author}), 39, "utf8 decoded" );
}