r34419 - in /branches/upstream/libemail-mime-modifier-perl/current: Changes META.yml Makefile.PL lib/Email/MIME/Modifier.pm t/encoding.t
bricas-guest at users.alioth.debian.org
bricas-guest at users.alioth.debian.org
Thu Apr 30 14:52:19 UTC 2009
Author: bricas-guest
Date: Thu Apr 30 14:52:14 2009
New Revision: 34419
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=34419
Log:
[svn-upgrade] Integrating new upstream version, libemail-mime-modifier-perl (1.444)
Modified:
branches/upstream/libemail-mime-modifier-perl/current/Changes
branches/upstream/libemail-mime-modifier-perl/current/META.yml
branches/upstream/libemail-mime-modifier-perl/current/Makefile.PL
branches/upstream/libemail-mime-modifier-perl/current/lib/Email/MIME/Modifier.pm
branches/upstream/libemail-mime-modifier-perl/current/t/encoding.t
Modified: branches/upstream/libemail-mime-modifier-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-mime-modifier-perl/current/Changes?rev=34419&op=diff
==============================================================================
--- branches/upstream/libemail-mime-modifier-perl/current/Changes (original)
+++ branches/upstream/libemail-mime-modifier-perl/current/Changes Thu Apr 30 14:52:14 2009
@@ -1,4 +1,7 @@
Revision history for Email-MIME-Modifier
+
+1.444 2009-04-29
+ be compatible with (and require) Email::MIME::Encodings 1.313
1.443 2009-01-22
add test for the stupid parts_set($one_part) cases
Modified: branches/upstream/libemail-mime-modifier-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-mime-modifier-perl/current/META.yml?rev=34419&op=diff
==============================================================================
--- branches/upstream/libemail-mime-modifier-perl/current/META.yml (original)
+++ branches/upstream/libemail-mime-modifier-perl/current/META.yml Thu Apr 30 14:52:14 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Email-MIME-Modifier
-version: 1.443
+version: 1.444
abstract: Modify Email::MIME Objects Easily
author:
- Casey West <casey at geeknest.com>
@@ -8,20 +8,22 @@
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires:
Email::MessageID: 1.2
Email::MIME: 1.82
Email::MIME::ContentType: 1.0
- Email::MIME::Encodings: 1.3
+ Email::MIME::Encodings: 1.313
Email::Simple: 1.92
Test::More: 0.47
resources:
- Repository: http://github.com/rjbs/email-mime-modifier
+ repository: http://github.com/rjbs/email-mime-modifier
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.48
+generated_by: ExtUtils::MakeMaker version 6.50
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/libemail-mime-modifier-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-mime-modifier-perl/current/Makefile.PL?rev=34419&op=diff
==============================================================================
--- branches/upstream/libemail-mime-modifier-perl/current/Makefile.PL (original)
+++ branches/upstream/libemail-mime-modifier-perl/current/Makefile.PL Thu Apr 30 14:52:14 2009
@@ -12,13 +12,13 @@
'Email::Simple' => '1.92',
'Test::More' => '0.47',
'Email::MIME::ContentType' => '1.0',
- 'Email::MIME::Encodings' => '1.3',
+ 'Email::MIME::Encodings' => '1.313',
},
VERSION_FROM => 'lib/Email/MIME/Modifier.pm',
(eval { ExtUtils::MakeMaker->VERSION(6.46) }
? (META_MERGE => {
resources => {
- Repository => 'http://github.com/rjbs/email-mime-modifier'
+ repository => 'http://github.com/rjbs/email-mime-modifier'
}
})
: ()
Modified: branches/upstream/libemail-mime-modifier-perl/current/lib/Email/MIME/Modifier.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-mime-modifier-perl/current/lib/Email/MIME/Modifier.pm?rev=34419&op=diff
==============================================================================
--- branches/upstream/libemail-mime-modifier-perl/current/lib/Email/MIME/Modifier.pm (original)
+++ branches/upstream/libemail-mime-modifier-perl/current/lib/Email/MIME/Modifier.pm Thu Apr 30 14:52:14 2009
@@ -4,7 +4,7 @@
package Email::MIME::Modifier;
use vars qw[$VERSION];
-$VERSION = '1.443';
+$VERSION = '1.444';
use Email::MIME;
@@ -20,9 +20,7 @@
=head1 VERSION
-version 1.442
-
- $Id$
+version 1.444
=head1 SYNOPSIS
Modified: branches/upstream/libemail-mime-modifier-perl/current/t/encoding.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-mime-modifier-perl/current/t/encoding.t?rev=34419&op=diff
==============================================================================
--- branches/upstream/libemail-mime-modifier-perl/current/t/encoding.t (original)
+++ branches/upstream/libemail-mime-modifier-perl/current/t/encoding.t Thu Apr 30 14:52:14 2009
@@ -18,14 +18,38 @@
$email->encoding_set('base64');
is $email->body, qq[Hello World!\nI like you!\n], 'base64 works';
-is $email->body_raw, qq[SGVsbG8gV29ybGQhCkkgbGlrZSB5b3UhCg==\n], 'base64 raw works';
-is $email->header('Content-Transfer-Encoding'), 'base64', 'base64 encoding works';
+
+is(
+ $email->body_raw,
+ qq[SGVsbG8gV29ybGQhCkkgbGlrZSB5b3UhCg==\x0d\x0a],
+ 'base64 raw works',
+);
+
+is(
+ $email->header('Content-Transfer-Encoding'),
+ 'base64',
+ 'base64 encoding works',
+);
$email->encoding_set('binary');
-is $email->body, qq[Hello World!\nI like you!\n], 'binary works';
-is $email->body_raw, qq[Hello World!\nI like you!\n], 'binary raw works';
-is $email->header('Content-Transfer-Encoding'), 'binary', 'binary encoding works';
+is(
+ $email->body,
+ qq[Hello World!\nI like you!\n],
+ 'binary works',
+);
+
+is(
+ $email->body_raw,
+ qq[Hello World!\nI like you!\n],
+ 'binary raw works',
+);
+
+is(
+ $email->header('Content-Transfer-Encoding'),
+ 'binary',
+ 'binary encoding works',
+);
my $long_line = 'Long line! ' x 100;
@@ -34,9 +58,7 @@
$long_line
__MESSAGE__
-is $email->body, qq[$long_line\n], 'quoted-printable + body_set works';
-is $email->body_raw, <<__RAW__, 'quoted-printable + body_set raw works';
-Long line! Long line! Long line! Long line! Long line! Long line! Long line=
+my $qp_expect = qq{Long line! Long line! Long line! Long line! Long line! Long line! Long line=
! Long line! Long line! Long line! Long line! Long line! Long line! Long li=
ne! Long line! Long line! Long line! Long line! Long line! Long line! Long =
line! Long line! Long line! Long line! Long line! Long line! Long line! Lon=
@@ -50,6 +72,24 @@
Long line! Long line! Long line! Long line! Long line! Long line! Long line=
! Long line! Long line! Long line! Long line! Long line! Long line! Long li=
ne! Long line! Long line! Long line! Long line! Long line! Long line! Long =
-line! Long line! Long line! Long line! Long line!=20
-__RAW__
-is $email->header('Content-Transfer-Encoding'), 'quoted-printable', 'quoted-printble + body_set encoding works';
+line! Long line! Long line! Long line! Long line!=20\x0d\x0a};
+
+$qp_expect =~ s/=\n/=\x0d\x0a/g;
+
+is(
+ $email->body,
+ qq[$long_line\x0d\x0a],
+ 'quoted-printable + body_set works'
+);
+
+is(
+ $email->body_raw,
+ $qp_expect,
+ 'quoted-printable + body_set raw works',
+);
+
+is(
+ $email->header('Content-Transfer-Encoding'),
+ 'quoted-printable',
+ 'quoted-printble + body_set encoding works',
+);
More information about the Pkg-perl-cvs-commits
mailing list