r11175 - in /branches/upstream/libmime-lite-perl/current: META.yml Makefile.PL changes.pod lib/MIME/Lite.pm t/addrs.t t/verify.t
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Thu Dec 13 22:51:28 UTC 2007
Author: gwolf
Date: Thu Dec 13 22:51:27 2007
New Revision: 11175
URL: http://svn.debian.org/wsvn/?sc=1&rev=11175
Log:
[svn-upgrade] Integrating new upstream version, libmime-lite-perl (3.021)
Modified:
branches/upstream/libmime-lite-perl/current/META.yml
branches/upstream/libmime-lite-perl/current/Makefile.PL
branches/upstream/libmime-lite-perl/current/changes.pod
branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm
branches/upstream/libmime-lite-perl/current/t/addrs.t
branches/upstream/libmime-lite-perl/current/t/verify.t
Modified: branches/upstream/libmime-lite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libmime-lite-perl/current/META.yml?rev=11175&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/META.yml (original)
+++ branches/upstream/libmime-lite-perl/current/META.yml Thu Dec 13 22:51:27 2007
@@ -1,18 +1,13 @@
--- #YAML:1.0
name: MIME-Lite
-version: 3.020
+version: 3.021
abstract: ~
license: perl
-generated_by: ExtUtils::MakeMaker version 6.32
+generated_by: ExtUtils::MakeMaker version 6.36_01
distribution_type: module
requires:
- Email::Date: 0
- File::Basename:
+ Email::Date::Format: 1.000
File::Spec: 0
- Mail::Address: 1.62
- MIME::Base64:
- MIME::QuotedPrint:
- MIME::Types: 1.13
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libmime-lite-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libmime-lite-perl/current/Makefile.PL?rev=11175&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/Makefile.PL (original)
+++ branches/upstream/libmime-lite-perl/current/Makefile.PL Thu Dec 13 22:51:27 2007
@@ -18,8 +18,8 @@
"I can add these modules to the prereq list which will cause the files to be\n",
"automatically installed if they arent already present\n";
my %prereq = (
- 'File::Spec' => 0,
- 'Email::Date' => 0,
+ 'File::Spec' => 0,
+ 'Email::Date::Format' => '1.000', # first release
);
if (prompt("Add prereqs?",'Yes')=~/y/i) {
%prereq=( %prereq,
Modified: branches/upstream/libmime-lite-perl/current/changes.pod
URL: http://svn.debian.org/wsvn/branches/upstream/libmime-lite-perl/current/changes.pod?rev=11175&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/changes.pod (original)
+++ branches/upstream/libmime-lite-perl/current/changes.pod Thu Dec 13 22:51:27 2007
@@ -2,7 +2,14 @@
=over 4
-=item Version 3.02
+=item Version 3.021
+
+Replace Email::Date with Email::Date::Format to limit prereqs
+(Email::Date::Format produced just for this!)
+
+Begin the process of removing use of ExtUtils::TBone for testing
+
+=item Version 3.020
Optimized code for speedup of creation of two-part messages. The internal
structure of the object has changes, but that won't matter if you were
Modified: branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm?rev=11175&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm (original)
+++ branches/upstream/libmime-lite-perl/current/lib/MIME/Lite.pm Thu Dec 13 22:51:27 2007
@@ -350,7 +350,7 @@
#==============================
#
# GLOBALS, EXTERNAL/CONFIGURATION...
-$VERSION = '3.020';
+$VERSION = '3.021';
### Automatically interpret CC/BCC for SMTP:
$AUTO_CC = 1;
@@ -1094,8 +1094,8 @@
my $ds_wanted = $params{Datestamp};
my $ds_defaulted = ( $is_top and !exists( $params{Datestamp} ) );
if ( ( $ds_wanted or $ds_defaulted ) and !exists( $params{Date} ) ) {
- require Email::Date;
- $self->add( "date", Email::Date::format_date() );
+ require Email::Date::Format;
+ $self->add( "date", Email::Date::Format::email_date() );
}
### Set message headers:
Modified: branches/upstream/libmime-lite-perl/current/t/addrs.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmime-lite-perl/current/t/addrs.t?rev=11175&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/t/addrs.t (original)
+++ branches/upstream/libmime-lite-perl/current/t/addrs.t Thu Dec 13 22:51:27 2007
@@ -1,87 +1,67 @@
-#!/usr/bin/perl
-use lib "lib", "t";
-use MIME::Lite;
-use ExtUtils::TBone;
-use Utils;
-
-# Make a tester... here are 3 different alternatives:
-my $T = typical ExtUtils::TBone; # standard log
-$MIME::Lite::VANILLA = 1;
-$MIME::Lite::PARANOID = 1;
-
-# Pairs:
-my @pairs =
- (
- [' me at myhost.com ',
- 1,
- '<me at myhost.com>'],
-
- [' mylogin ',
- 1,
- '<mylogin>'],
-
- [' "Me, Jr." < me at myhost.com > ',
- 1,
- '<me at myhost.com>'],
-
- [' Me <me at myhost.com>',
- 1,
- '<me at myhost.com>'],
-
- ['"Me, Jr." <me at myhost.com>',
- 1,
- '<me at myhost.com>'],
-
- ['"Me at somewhere.com, Jr." <me at myhost.com>',
- 1,
- '<me at myhost.com>'],
-
- ['me at myhost.com,you at yourhost.com',
- 2,
- '<me at myhost.com> <you at yourhost.com>'],
-
- ['"Me" <me at myhost.com>, "You"<you at yourhost.com>',
- 2,
- '<me at myhost.com> <you at yourhost.com>'],
-
- ['"Me" <me at myhost.com>, you at yourhost.com, "And also" <she at herhost.com>',
- 3,
- '<me at myhost.com> <you at yourhost.com> <she at herhost.com>'],
-
- ['"Me" <me at myhost.com>, mylogin ,yourlogin , She <she at herhost.com>',
- 4,
- '<me at myhost.com> <mylogin> <yourlogin> <she at herhost.com>']
- );
-
-
-# Abort?
-if (0 and eval "require Mail::Address") {
- $T->begin(1);
- $T->ok(1, "we have and trust Mail::Address");
- $T->end;
- exit 0;
-}
-
-# Begin testing:
-$T->begin(2 * @pairs);
-
-# New:
-foreach my $pair (@pairs) {
- my ($to, $count, $result) = @$pair;
- my @addrs = MIME::Lite::extract_only_addrs($to);
-
- $T->ok_eqnum(int(@addrs), $count,
- "compare count",
- In => $to);
- $T->ok_eq(join(' ', map {"<$_>"} @addrs),
- $result,
- "compare result",
- In => $to);
-}
-
-$T->end;
-
-
-
-
-
+#!/usr/bin/perl
+use lib "lib", "t";
+use MIME::Lite;
+use Test::More;
+use Utils;
+
+$MIME::Lite::VANILLA = 1;
+$MIME::Lite::PARANOID = 1;
+
+# Pairs:
+my @pairs = (
+ [' me at myhost.com ',
+ 1,
+ '<me at myhost.com>'],
+
+ [' mylogin ',
+ 1,
+ '<mylogin>'],
+
+ [' "Me, Jr." < me at myhost.com > ',
+ 1,
+ '<me at myhost.com>'],
+
+ [' Me <me at myhost.com>',
+ 1,
+ '<me at myhost.com>'],
+
+ ['"Me, Jr." <me at myhost.com>',
+ 1,
+ '<me at myhost.com>'],
+
+ ['"Me at somewhere.com, Jr." <me at myhost.com>',
+ 1,
+ '<me at myhost.com>'],
+
+ ['me at myhost.com,you at yourhost.com',
+ 2,
+ '<me at myhost.com> <you at yourhost.com>'],
+
+ ['"Me" <me at myhost.com>, "You"<you at yourhost.com>',
+ 2,
+ '<me at myhost.com> <you at yourhost.com>'],
+
+ ['"Me" <me at myhost.com>, you at yourhost.com, "And also" <she at herhost.com>',
+ 3,
+ '<me at myhost.com> <you at yourhost.com> <she at herhost.com>'],
+
+ ['"Me" <me at myhost.com>, mylogin ,yourlogin , She <she at herhost.com>',
+ 4,
+ '<me at myhost.com> <mylogin> <yourlogin> <she at herhost.com>']
+);
+
+plan tests => 2 * @pairs;
+
+# New:
+foreach my $pair (@pairs) {
+ my ($to, $count, $result) = @$pair;
+ my @addrs = MIME::Lite::extract_only_addrs($to);
+
+ is(@addrs, $count, "as many addrs as expected");
+
+ is(
+ join(' ', map {"<$_>"} @addrs),
+ $result,
+ "addrs stringify together as expected",
+ );
+}
Modified: branches/upstream/libmime-lite-perl/current/t/verify.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmime-lite-perl/current/t/verify.t?rev=11175&op=diff
==============================================================================
--- branches/upstream/libmime-lite-perl/current/t/verify.t (original)
+++ branches/upstream/libmime-lite-perl/current/t/verify.t Thu Dec 13 22:51:27 2007
@@ -1,39 +1,24 @@
-#!/usr/bin/perl
-use lib "lib", "t";
-use MIME::Lite;
-use ExtUtils::TBone;
-use Utils;
-
-# Make a tester... here are 3 different alternatives:
-my $T = typical ExtUtils::TBone; # standard log
-$MIME::Lite::VANILLA = 1;
-$MIME::Lite::PARANOID = 1;
-
-# Begin testing:
-$T->begin(2);
-
-my $msg;
-
-$msg = MIME::Lite->new(From=>"me", To=>"you");
-$msg->attach(Path => "boguscmd |");
-$msg->attach(Data => "Hello");
-$msg->attach(Path => "<path.to.missing.file");
-eval { $msg->verify_data };
-$T->ok($@ =~ /path\.to\.missing\.file/,
- "Did we detect a missing file?",
- Error => $@);
-
-$msg = MIME::Lite->new(From=>"me", To=>"you");
-$msg->attach(Data => "Hello");
-eval { $msg->verify_data };
-$T->ok(!$@,
- "Did we detect NO missing file?",
- Error => $@);
-
-
-$T->end;
-
-
-
-
-
+#!/usr/bin/perl
+use lib "lib", "t";
+use MIME::Lite;
+use Test::More tests => 2;
+use Utils;
+
+$MIME::Lite::VANILLA = 1;
+$MIME::Lite::PARANOID = 1;
+
+my $msg;
+
+$msg = MIME::Lite->new(From => "me", To => "you");
+$msg->attach(Path => "boguscmd |");
+$msg->attach(Data => "Hello");
+$msg->attach(Path => "<path.to.missing.file");
+eval { $msg->verify_data };
+
+like($@, qr/path\.to\.missing\.file/, "we detected a missing file");
+
+$msg = MIME::Lite->new(From=>"me", To=>"you");
+$msg->attach(Data => "Hello");
+eval { $msg->verify_data };
+
+ok(!$@, "we detected NO missing file");
More information about the Pkg-perl-cvs-commits
mailing list