develooper Front page | perl.perl5.porters | Postings from November 2010

Re: [perl.git] branch blead, updated. v5.13.7-106-g719245b

From:
Nicholas Clark
Date:
November 26, 2010 01:13
Subject:
Re: [perl.git] branch blead, updated. v5.13.7-106-g719245b
Message ID:
20101126091329.GJ24189@plum.flirble.org
On Fri, Nov 26, 2010 at 01:47:55AM +0100, Chris 'Bingos' Williams wrote:
> In perl.git, the branch blead has been updated
> 
> <http://perl5.git.perl.org/perl.git/commitdiff/719245bdb37d6b755905afe0a676055044850522?hp=d4456f896c3eddd615abf6048839581863ea6ca3>
> 
> - Log -----------------------------------------------------------------
> commit 719245bdb37d6b755905afe0a676055044850522
> Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
> Date:   Fri Nov 26 00:46:37 2010 +0000
> 
>     Update MIME-Base64 to CPAN version 3.12
>     
>       [DELTA]
>     
>       2010-10-25   Gisle Aas <gisle@ActiveState.com>
>     
>        Release 3.12
>     
>        Don't change SvUTF8 flag on the strings encoded [RT#60105]
>     
>        Documentation tweaks

This causes a test failure in Encode. (I think, for all configurations):

./perl -MTestInit cpan/Encode/t/Encoder.t

...

ok 260 - decode
Wide character in subroutine entry at cpan/Encode/t/Encoder.t line 25.
# Looks like you planned 516 tests but ran 260.
# Looks like your test exited with 255 just after 260.


No, I don't know why. The collateral work of trying to maintain a
coherent distribution of modules...


The entire test is this:

#
# $Id: Encoder.t,v 2.0 2004/05/16 20:55:17 dankogai Exp $
#

BEGIN {
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bEncode\b/) {
      print "1..0 # Skip: Encode was not built\n";
      exit 0;
    }
    $| = 1;
}

use strict;
#use Test::More 'no_plan';
use Test::More tests => 516;
use Encode::Encoder qw(encoder);
use MIME::Base64;
package Encode::Base64;
use base 'Encode::Encoding';
__PACKAGE__->Define('base64');
use MIME::Base64;
sub encode{
    my ($obj, $data) = @_;
    return encode_base64($data);
}
sub decode{
    my ($obj, $data) = @_;
    return decode_base64($data);
}

package main;

my $e = encoder("foo", "ascii");
ok ($e->data("bar"));
is ($e->data, "bar");
ok ($e->encoding("latin1"));
is ($e->encoding, "iso-8859-1");

my $data = '';
for my $i (0..255){
    no warnings;
    $data .= chr($i);
    my $base64 = encode_base64($data);
    is(encoder($data)->base64, $base64, "encode");
    is(encoder($base64)->bytes('base64'), $data, "decode");
}

1;
__END__


Line 25 is

    return encode_base64($data);

Nicholas Clark



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About