Front page | perl.perl5.porters |
Postings from November 2010
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
Thread Previous
|
Thread Next