In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/836bb1e34a8e2f269b0c97fa72d2641e7c775787?hp=dabde021f60e09a0d267e2c1d21905e88314056d>

- Log -----------------------------------------------------------------
commit 836bb1e34a8e2f269b0c97fa72d2641e7c775787
Author: David Mitchell <[email protected]>
Date:   Thu Apr 19 14:10:35 2018 +0100

    Encode: truncated_utf8.t TODO passes
    
    This TODO test has been passing since the combination of:
    
    v5.27.8-40-g37657a5b6c
    
        which added utf8n_to_uvchr_msgs to the perl API
    
    v5.27.8-252-gc31ca2013f
    
        which upgraded blead to Encode  2.96, which makes use of this new
        function if available.
    
    So stop marking it as TODO in blead.
    
    This is patching a cpan/ distribution, but its only a test, and its a
    bit late in code freeze to install a newer Encode released, while we
    don't want a production perl with spurious passing TODO tests.

-----------------------------------------------------------------------

Summary of changes:
 Porting/Maintainers.pl         | 4 ++++
 cpan/Encode/t/truncated_utf8.t | 2 +-
 t/porting/customized.dat       | 1 +
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index f24287a716..95db061ce9 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -396,6 +396,10 @@ use File::Glob qw(:case);
     'Encode' => {
         'DISTRIBUTION' => 'DANKOGAI/Encode-2.97.tar.gz',
         'FILES'        => q[cpan/Encode],
+        'CUSTOMIZED'   => [
+           # TODO test passes on blead
+           't/truncated_utf8.t',
+        ],
     },
 
     'encoding::warnings' => {
diff --git a/cpan/Encode/t/truncated_utf8.t b/cpan/Encode/t/truncated_utf8.t
index 7de8bb9ac1..b379267664 100644
--- a/cpan/Encode/t/truncated_utf8.t
+++ b/cpan/Encode/t/truncated_utf8.t
@@ -45,7 +45,7 @@ SKIP: {
     is($str2, ("x" x 1023) . ("\x{fffd}" x 3) . "x");
 
     TODO: {
-        local $TODO = "bug in perlio";
+        local $TODO = "bug in perlio" if $] < 5.027009;
         my $str = ("x" x 1023) . "\xfd\xfe\xff";
         open my $fh, '<:encoding(UTF-8)', \$str;
         my $str2 = <$fh>;
diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index cd22555da0..70722d5531 100644
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -3,6 +3,7 @@
 #     ./perl -I../lib porting/customized.t --regen
 Devel::PPPort dist/Devel-PPPort/parts/embed.fnc 
e030719d9c6921810554a8e2d398543348b4878c
 Digest cpan/Digest/Digest.pm 43f7f544cb11842b2f55c73e28930da50774e081
+Encode cpan/Encode/t/truncated_utf8.t 36e6780c20f1d22ed7c97b1a388a63629617451f
 Locale::Maketext::Simple 
cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 
57ed38905791a17c150210cd6f42ead22a7707b6
 Math::Complex cpan/Math-Complex/lib/Math/Complex.pm 
198ea6c6c584f5ea79a0fd7e9d411d0878f3b2af
 Math::Complex cpan/Math-Complex/t/Complex.t 
4f307ed6fc59f1e5fb0e6b11103fc631b6bdb335

-- 
Perl5 Master Repository

Reply via email to