r11184 - in /trunk/libmime-lite-perl: META.yml Makefile.PL changes.pod debian/changelog debian/control debian/rules 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 23:43:52 UTC 2007
Author: gwolf
Date: Thu Dec 13 23:43:51 2007
New Revision: 11184
URL: http://svn.debian.org/wsvn/?sc=1&rev=11184
Log:
New upstream version, with some stupid dependency changes :-/
Modified:
trunk/libmime-lite-perl/META.yml
trunk/libmime-lite-perl/Makefile.PL
trunk/libmime-lite-perl/changes.pod
trunk/libmime-lite-perl/debian/changelog
trunk/libmime-lite-perl/debian/control
trunk/libmime-lite-perl/debian/rules
trunk/libmime-lite-perl/lib/MIME/Lite.pm
trunk/libmime-lite-perl/t/addrs.t
trunk/libmime-lite-perl/t/verify.t
Modified: trunk/libmime-lite-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/META.yml?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/META.yml (original)
+++ trunk/libmime-lite-perl/META.yml Thu Dec 13 23:43:51 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: trunk/libmime-lite-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/Makefile.PL?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/Makefile.PL (original)
+++ trunk/libmime-lite-perl/Makefile.PL Thu Dec 13 23:43:51 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: trunk/libmime-lite-perl/changes.pod
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/changes.pod?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/changes.pod (original)
+++ trunk/libmime-lite-perl/changes.pod Thu Dec 13 23:43:51 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: trunk/libmime-lite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/debian/changelog?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/debian/changelog (original)
+++ trunk/libmime-lite-perl/debian/changelog Thu Dec 13 23:43:51 2007
@@ -1,10 +1,18 @@
-libmime-lite-perl (3.020-3) UNRELEASED; urgency=low
+libmime-lite-perl (3.021-1) UNRELEASED; urgency=low
+ [Gregor Herrmann]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed: XS-
Vcs-Svn fields.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:30:33 +0200
+ [ Gunnar Wolf ]
+ * New upstream release
+ * Added recommendation and build-dependency on perl-modules,
+ libmailtools-perl, libmime-types-perl
+ * Added libemail-date-format-perl as a build-dependency/dependency,
+ dropped libemail-date-perl
+
+ -- Gunnar Wolf <gwolf at debian.org> Thu, 13 Dec 2007 17:00:22 -0600
libmime-lite-perl (3.020-2) unstable; urgency=low
Modified: trunk/libmime-lite-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/debian/control?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/debian/control (original)
+++ trunk/libmime-lite-perl/debian/control Thu Dec 13 23:43:51 2007
@@ -12,11 +12,14 @@
Build-Depends: debhelper (>= 5.0.0)
Build-Depends-Indep: perl (>> 5.8.1), libmime-types-perl,
libtest-pod-perl, libtest-pod-coverage-perl,
- nullmailer | mail-transport-agent, libemail-date-perl
+ nullmailer | mail-transport-agent, perl-modules, libmailtools-perl,
+ libmime-types-perl, libemail-date-format-perl
Package: libmime-lite-perl
Architecture: all
-Depends: ${perl:Depends}, nullmailer|mail-transport-agent, libemail-date-perl
+Depends: ${perl:Depends}, nullmailer|mail-transport-agent,
+ libemail-date-format-perl
+Recommends: perl-modules, libmailtools-perl, libmime-types-perl
Description: Perl5 module for convenient generation of MIME messages
MIME::Lite is intended as a simple, standalone module for generating
(not parsing!) MIME messages... specifically, it allows you to
Modified: trunk/libmime-lite-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/debian/rules?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/debian/rules (original)
+++ trunk/libmime-lite-perl/debian/rules Thu Dec 13 23:43:51 2007
@@ -13,7 +13,7 @@
build: build-stamp
build-stamp:
dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor PERL=$(PERL)
+ export PERL_MM_USE_DEFAULT=true; $(PERL) Makefile.PL INSTALLDIRS=vendor PERL=$(PERL)
$(MAKE)
$(MAKE) test
touch $@
Modified: trunk/libmime-lite-perl/lib/MIME/Lite.pm
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/lib/MIME/Lite.pm?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/lib/MIME/Lite.pm (original)
+++ trunk/libmime-lite-perl/lib/MIME/Lite.pm Thu Dec 13 23:43:51 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: trunk/libmime-lite-perl/t/addrs.t
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/t/addrs.t?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/t/addrs.t (original)
+++ trunk/libmime-lite-perl/t/addrs.t Thu Dec 13 23:43:51 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: trunk/libmime-lite-perl/t/verify.t
URL: http://svn.debian.org/wsvn/trunk/libmime-lite-perl/t/verify.t?rev=11184&op=diff
==============================================================================
--- trunk/libmime-lite-perl/t/verify.t (original)
+++ trunk/libmime-lite-perl/t/verify.t Thu Dec 13 23:43:51 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