r3414 - in /packages/libemail-send-perl/trunk: Changes MANIFEST
META.yml
Makefile.PL README debian/changelog debian/control lib/Email/Send.pm
t/abstract-msg.t t/classic.t t/lib/Without.pm t/sendmail.t t/test.t
t/without.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Aug 6 23:29:15 UTC 2006
Author: gregoa-guest
Date: Sun Aug 6 23:29:14 2006
New Revision: 3414
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3414
Log:
* New upstream release.
* Add libtest-pod-perl, libtest-pod-coverage-perl, libmime-perl to Build-Depends-Indep.
Added:
packages/libemail-send-perl/trunk/t/lib/Without.pm
- copied unchanged from r3413, packages/libemail-send-perl/branches/upstream/current/t/lib/Without.pm
Modified:
packages/libemail-send-perl/trunk/Changes
packages/libemail-send-perl/trunk/MANIFEST
packages/libemail-send-perl/trunk/META.yml
packages/libemail-send-perl/trunk/Makefile.PL
packages/libemail-send-perl/trunk/README
packages/libemail-send-perl/trunk/debian/changelog
packages/libemail-send-perl/trunk/debian/control
packages/libemail-send-perl/trunk/lib/Email/Send.pm
packages/libemail-send-perl/trunk/t/abstract-msg.t
packages/libemail-send-perl/trunk/t/classic.t
packages/libemail-send-perl/trunk/t/sendmail.t
packages/libemail-send-perl/trunk/t/test.t
packages/libemail-send-perl/trunk/t/without.t
Modified: packages/libemail-send-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/Changes?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/Changes (original)
+++ packages/libemail-send-perl/trunk/Changes Sun Aug 6 23:29:14 2006
@@ -1,3 +1,12 @@
+2.171 2006-07-29
+
+ - improve tests and contents, giving up on Test::Without::Module
+
+2.17 2006-07-28
+
+ - skip tests for optional functionality (bug 20740, eloy)
+ - fix typo in POD (thanks J. Cheetham!)
+
2.16 2006-07-24
- the without.t test no longer breaks if Test::Without::Module isn't there
Modified: packages/libemail-send-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/MANIFEST?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/MANIFEST (original)
+++ packages/libemail-send-perl/trunk/MANIFEST Sun Aug 6 23:29:14 2006
@@ -25,6 +25,7 @@
t/lib/Email/Send/Unavail.pm
t/lib/OKMailer.pm
t/lib/OKMailerOO.pm
+t/lib/Without.pm
t/modifier.t
t/no-import.t
t/object-mailer.t
Modified: packages/libemail-send-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/META.yml?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/META.yml (original)
+++ packages/libemail-send-perl/trunk/META.yml Sun Aug 6 23:29:14 2006
@@ -1,11 +1,11 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Email-Send
-version: 2.16
+version: 2.171
version_from: lib/Email/Send.pm
installdirs: site
requires:
- Class::Accessor::Fast: 0.19
+ Class::Accessor::Fast: 0.18
Email::Address: 1.80
Email::Simple: 1.92
File::Spec: 0
Modified: packages/libemail-send-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/Makefile.PL?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/Makefile.PL (original)
+++ packages/libemail-send-perl/trunk/Makefile.PL Sun Aug 6 23:29:14 2006
@@ -5,12 +5,12 @@
ABSTRACT => "Simply Sending Email",
NAME => 'Email::Send',
PREREQ_PM => {
- 'Class::Accessor::Fast' => '0.19',
- 'Email::Address' => '1.80',
- 'Email::Simple' => '1.92',
+ 'Class::Accessor::Fast' => '0.18', # cope with broken 5.6.0 base.pm
+ 'Email::Address' => '1.80', # avoid many 'could hand on bad addr' bugs
+ 'Email::Simple' => '1.92', # previous versions have prereq problems
'File::Spec' => 0, # min ver unknown; core in 5.005
'Module::Pluggable' => '2.97', # topic safety
- 'Return::Value' => '1.28',
+ 'Return::Value' => '1.28', # avoid num/bool explosions on 5.6.1
'Scalar::Util' => '1.02', # reason unknown; core in 5.7.3
'Symbol' => '0.00', # min ver unknown; core in 5.002
'Test::More' => '0.47', # reason unknown; core in 5.8.1
Modified: packages/libemail-send-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/README?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/README (original)
+++ packages/libemail-send-perl/trunk/README Sun Aug 6 23:29:14 2006
@@ -32,7 +32,7 @@
DESCRIPTION
This module provides a very simple, very clean, very specific interface
- to multiple Email mailers. The goal if this software is to be small and
+ to multiple Email mailers. The goal of this software is to be small and
simple, easy to use, and easy to extend.
Constructors
Modified: packages/libemail-send-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/debian/changelog?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/debian/changelog (original)
+++ packages/libemail-send-perl/trunk/debian/changelog Sun Aug 6 23:29:14 2006
@@ -1,3 +1,10 @@
+libemail-send-perl (2.171-1) unstable; urgency=low
+
+ * New upstream release.
+ * Add libtest-pod-perl, libtest-pod-coverage-perl, libmime-perl to Build-Depends-Indep.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Mon, 7 Aug 2006 01:27:51 +0200
+
libemail-send-perl (2.16-1) unstable; urgency=low
* New upstream release
Modified: packages/libemail-send-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/debian/control?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/debian/control (original)
+++ packages/libemail-send-perl/trunk/debian/control Sun Aug 6 23:29:14 2006
@@ -2,9 +2,9 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 5.0.0)
-Build-Depends-Indep: perl (>= 5.8.0-7), libmodule-pluggable-perl, libreturn-value-perl, libemail-simple-perl, libclass-accessor-perl, libemail-address-perl, libemail-abstract-perl, libio-all-perl
+Build-Depends-Indep: perl (>= 5.8.0-7), libmodule-pluggable-perl, libreturn-value-perl, libemail-simple-perl, libclass-accessor-perl, libemail-address-perl, libemail-abstract-perl, libio-all-perl, libtest-pod-perl, libtest-pod-coverage-perl, libmime-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
Standards-Version: 3.7.2.1
Package: libemail-send-perl
Modified: packages/libemail-send-perl/trunk/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/lib/Email/Send.pm?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/lib/Email/Send.pm (original)
+++ packages/libemail-send-perl/trunk/lib/Email/Send.pm Sun Aug 6 23:29:14 2006
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '2.16';
+$VERSION = '2.171';
use base qw[Class::Accessor::Fast];
use Email::Simple;
@@ -47,7 +47,7 @@
=head1 DESCRIPTION
This module provides a very simple, very clean, very specific interface
-to multiple Email mailers. The goal if this software is to be small
+to multiple Email mailers. The goal of this software is to be small
and simple, easy to use, and easy to extend.
=head2 Constructors
Modified: packages/libemail-send-perl/trunk/t/abstract-msg.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/abstract-msg.t?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/abstract-msg.t (original)
+++ packages/libemail-send-perl/trunk/t/abstract-msg.t Sun Aug 6 23:29:14 2006
@@ -4,6 +4,9 @@
BEGIN { use_ok('Email::Send', 'Test'); }
require Email::Send::Test;
+
+plan skip_all => "Email::Abstract required for these tests"
+ unless eval "use Email::Abstract; 1";
my $tests = 3;
Modified: packages/libemail-send-perl/trunk/t/classic.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/classic.t?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/classic.t (original)
+++ packages/libemail-send-perl/trunk/t/classic.t Sun Aug 6 23:29:14 2006
@@ -8,9 +8,32 @@
use Email::Simple;
-if ( eval "require IO::All" ) {
- {
- my $message = Email::Simple->new(<<'__MESSAGE__');
+SKIP: {
+ skip "IO::All required for these tests", 2 unless eval "use IO::All; 1";
+ {
+ my $message = Email::Simple->new(<<'__MESSAGE__');
+To: me at myhost.com
+From: you at yourhost.com
+Subject: Test
+
+Testing this thing out.
+__MESSAGE__
+
+ unlink 'testfile'; # just in case
+
+ send('IO', $message, 'testfile');
+
+ my $test = do { local $/; open T, 'testfile' or die $!; <T> };
+
+ my $test_message = Email::Simple->new($test);
+
+ is $test_message->as_string, $message->as_string, 'sent properly';
+
+ unlink 'testfile';
+ }
+
+ {
+ my $message = Email::Simple->new(<<'__MESSAGE__');
To: me at myhost.com
From: you at yourhost.com
Subject: Test
@@ -18,35 +41,16 @@
Testing this thing out.
__MESSAGE__
- send('IO', $message, 'testfile');
+ my $message_text = $message->as_string;
+
+ send('IO', $message_text, 'testfile');
- my $test = do { local $/; open T, 'testfile' or die $!; <T> };
+ my $test = do { local $/; open T, 'testfile'; <T> };
- my $test_message = Email::Simple->new($test);
+ my $test_message = Email::Simple->new($test);
- is $test_message->as_string, $message->as_string, 'sent properly';
-
- unlink 'testfile';
- }
- {
- my $message = Email::Simple->new(<<'__MESSAGE__');
-To: me at myhost.com
-From: you at yourhost.com
-Subject: Test
+ is $test_message->as_string, $message->as_string, 'sent properly';
-Testing this thing out.
-__MESSAGE__
-
- my $message_text = $message->as_string;
-
- send('IO', $message_text, 'testfile');
-
- my $test = do { local $/; open T, 'testfile'; <T> };
-
- my $test_message = Email::Simple->new($test);
-
- is $test_message->as_string, $message->as_string, 'sent properly';
-
- unlink 'testfile';
- }
+ unlink 'testfile';
+ }
}
Modified: packages/libemail-send-perl/trunk/t/sendmail.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/sendmail.t?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/sendmail.t (original)
+++ packages/libemail-send-perl/trunk/t/sendmail.t Sun Aug 6 23:29:14 2006
@@ -83,9 +83,9 @@
SKIP:
{
- skip 'Cannot run this test unless current perl is -x', 1 unless -x $^X;
+ skip 'Cannot run this test unless current perl is -x', 2 unless -x $^X;
- skip 'Cannot run this test without File::Temp', 1 unless $has_FileTemp;
+ skip 'Cannot run this test without File::Temp', 2 unless $has_FileTemp;
my $tempdir = File::Temp::tempdir();
require File::Spec;
@@ -93,12 +93,12 @@
my $error = "can't prepare executable test script";
my $filename = File::Spec->catfile($tempdir, "sendmail");
- open my $sendmail_fh, ">", $filename or skip $error, 1;
- open my $template_fh, "<", './util/sendmail' or skip $error, 1;
+ open my $sendmail_fh, ">", $filename or skip $error, 2;
+ open my $template_fh, "<", './util/sendmail' or skip $error, 2;
- print {$sendmail_fh} "#!$^X\n" or skip $error, 1;
- print {$sendmail_fh} <$template_fh> or skip $error, 1;
- close $sendmail_fh or skip $error, 1;
+ print {$sendmail_fh} "#!$^X\n" or skip $error, 2;
+ print {$sendmail_fh} <$template_fh> or skip $error, 2;
+ close $sendmail_fh or skip $error, 2;
chmod 0755, $filename;
@@ -114,6 +114,5 @@
like( $log, qr/From: Casey West/, 'log contains From header' );
} else {
fail( 'cannot check sendmail log contents' );
- last SKIP;
}
}
Modified: packages/libemail-send-perl/trunk/t/test.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/test.t?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/test.t (original)
+++ packages/libemail-send-perl/trunk/t/test.t Sun Aug 6 23:29:14 2006
@@ -8,9 +8,35 @@
use Email::Simple;
-if ( eval "require IO::All" ) {
- {
- my $message = Email::Simple->new(<<'__MESSAGE__');
+SKIP: {
+ skip "IO::All required for these tests", 2 unless eval "use IO::All; 1;";
+ {
+ my $message = Email::Simple->new(<<'__MESSAGE__');
+To: me at myhost.com
+From: you at yourhost.com
+Subject: Test
+
+Testing this thing out.
+__MESSAGE__
+ unlink 'testfile'; # just in case
+
+ Email::Send->new({mailer => 'IO', mailer_args => ['testfile']})
+ ->send($message);
+
+ my $test = do {
+ local $/;
+ open T, 'testfile' or die "couldn't open testfile: $!";
+ <T>
+ };
+
+ my $test_message = Email::Simple->new($test);
+
+ is $test_message->as_string, $message->as_string, 'sent properly';
+
+ unlink 'testfile';
+ }
+ {
+ my $message = Email::Simple->new(<<'__MESSAGE__');
To: me at myhost.com
From: you at yourhost.com
Subject: Test
@@ -18,37 +44,17 @@
Testing this thing out.
__MESSAGE__
- Email::Send->new({mailer => 'IO', mailer_args => ['testfile']})
- ->send($message);
+ my $message_text = $message->as_string;
- my $test = do { local $/; open T, 'testfile'; <T> };
+ Email::Send->new({mailer => 'IO', mailer_args => ['testfile']})
+ ->send($message_text);
+
+ my $test = do { local $/; open T, 'testfile'; <T> };
+
+ my $test_message = Email::Simple->new($test);
- my $test_message = Email::Simple->new($test);
-
- is $test_message->as_string, $message->as_string, 'sent properly';
-
- unlink 'testfile';
- }
- {
- my $message = Email::Simple->new(<<'__MESSAGE__');
-To: me at myhost.com
-From: you at yourhost.com
-Subject: Test
-
-Testing this thing out.
-__MESSAGE__
-
- my $message_text = $message->as_string;
-
- Email::Send->new({mailer => 'IO', mailer_args => ['testfile']})
- ->send($message_text);
-
- my $test = do { local $/; open T, 'testfile'; <T> };
-
- my $test_message = Email::Simple->new($test);
-
- is $test_message->as_string, $message->as_string, 'sent properly';
-
- unlink 'testfile';
- }
+ is $test_message->as_string, $message->as_string, 'sent properly';
+
+ unlink 'testfile';
+ }
}
Modified: packages/libemail-send-perl/trunk/t/without.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-send-perl/trunk/t/without.t?rev=3414&op=diff
==============================================================================
--- packages/libemail-send-perl/trunk/t/without.t (original)
+++ packages/libemail-send-perl/trunk/t/without.t Sun Aug 6 23:29:14 2006
@@ -1,19 +1,17 @@
-use Test::More;
+use Test::More;;
use strict;
$^W = 1;
-BEGIN {
- plan skip_all => "these tests require Test::Without::Module"
- unless eval "require Test::Without::Module; 1";
+use lib 't/lib';
+
+BEGIN {
+ plan skip_all => "see t/lib/Without.pm for prereqs for these tests"
+ unless eval "use Without 'Email::Abstract'; 1;";
plan tests => 3;
- Test::Without::Module->import(qw(Email::Abstract));
+ use_ok('Email::Send', 'Test');
}
-
-use lib 't/lib';
-
-BEGIN { use_ok('Email::Send', 'Test'); }
{ # unknown message type
my $message = bless \(my $x = 0), "Mail::Ain't::Known";
More information about the Pkg-perl-cvs-commits
mailing list