r3392 - in
/packages/libemail-simple-perl/branches/upstream/current: ./
lib/Email/ t/ t/test-mails/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Thu Aug 3 14:09:28 UTC 2006
Author: eloy
Date: Thu Aug 3 14:09:27 2006
New Revision: 3392
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3392
Log:
Load /tmp/tmp.NDXdhV6698/libemail-simple-perl-1.96 into
packages/libemail-simple-perl/branches/upstream/current.
Added:
packages/libemail-simple-perl/branches/upstream/current/t/basic.t
packages/libemail-simple-perl/branches/upstream/current/t/folding.t
packages/libemail-simple-perl/branches/upstream/current/t/header-case.t
packages/libemail-simple-perl/branches/upstream/current/t/header-junk.t
packages/libemail-simple-perl/branches/upstream/current/t/long-msgid.t
packages/libemail-simple-perl/branches/upstream/current/t/many-repeats.t
packages/libemail-simple-perl/branches/upstream/current/t/test-mails/badly-folded-noindent
packages/libemail-simple-perl/branches/upstream/current/t/test-mails/josey-nobody-blank
packages/libemail-simple-perl/branches/upstream/current/t/test-mails/junk-in-header
packages/libemail-simple-perl/branches/upstream/current/t/test-mails/many-repeats
Removed:
packages/libemail-simple-perl/branches/upstream/current/t/1.t
packages/libemail-simple-perl/branches/upstream/current/t/2.t
packages/libemail-simple-perl/branches/upstream/current/t/3.t
packages/libemail-simple-perl/branches/upstream/current/t/4.t
Modified:
packages/libemail-simple-perl/branches/upstream/current/Changes
packages/libemail-simple-perl/branches/upstream/current/MANIFEST
packages/libemail-simple-perl/branches/upstream/current/META.yml
packages/libemail-simple-perl/branches/upstream/current/lib/Email/Simple.pm
packages/libemail-simple-perl/branches/upstream/current/t/badly-folded.t
packages/libemail-simple-perl/branches/upstream/current/t/no-body.t
Modified: packages/libemail-simple-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/Changes?rev=3392&op=diff
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/Changes (original)
+++ packages/libemail-simple-perl/branches/upstream/current/Changes Thu Aug 3 14:09:27 2006
@@ -1,4 +1,10 @@
Revision history for Perl extension Email::Simple.
+
+1.96 2006-07-28
+
+ - output headers in predictable order
+ - give tests more meaningful names
+ - improved test coverage
1.95 2006-07-21
Modified: packages/libemail-simple-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/MANIFEST?rev=3392&op=diff
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libemail-simple-perl/branches/upstream/current/MANIFEST Thu Aug 3 14:09:27 2006
@@ -3,18 +3,24 @@
MANIFEST
README
lib/Email/Simple.pm
-t/1.t
-t/2.t
-t/3.t
-t/4.t
t/badly-folded.t
+t/basic.t
+t/folding.t
+t/header-case.t
+t/header-junk.t
+t/long-msgid.t
+t/many-repeats.t
t/no-body.t
+t/pod-coverage.t
t/pod.t
-t/pod-coverage.t
t/test-mails/badly-folded
+t/test-mails/badly-folded-noindent
t/test-mails/josey-fold
t/test-mails/josey-nobody
+t/test-mails/josey-nobody-blank
t/test-mails/josey-nofold
+t/test-mails/junk-in-header
t/test-mails/long-msgid
+t/test-mails/many-repeats
t/unit.t
-META.yml Module meta-data (added by MakeMaker)
+META.yml Module meta-data (added by MakeMaker)
Modified: packages/libemail-simple-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/META.yml?rev=3392&op=diff
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/META.yml (original)
+++ packages/libemail-simple-perl/branches/upstream/current/META.yml Thu Aug 3 14:09:27 2006
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Email-Simple
-version: 1.95
+version: 1.96
version_from: lib/Email/Simple.pm
installdirs: site
requires:
Modified: packages/libemail-simple-perl/branches/upstream/current/lib/Email/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/lib/Email/Simple.pm?rev=3392&op=diff
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/lib/Email/Simple.pm (original)
+++ packages/libemail-simple-perl/branches/upstream/current/lib/Email/Simple.pm Thu Aug 3 14:09:27 2006
@@ -5,7 +5,7 @@
use Carp;
use vars qw($VERSION $GROUCHY);
-$VERSION = '1.95';
+$VERSION = '1.96';
my $crlf = qr/\x0a\x0d|\x0d\x0a|\x0a|\x0d/; # We are liberal in what we accept.
# But then, so is a six dollar whore.
@@ -61,9 +61,9 @@
my ($head, $body, $mycrlf) = _split_head_from_body($text);
my ($head_hash, $order) = _read_headers($head);
bless {
- head => $head_hash,
- body => $body,
- order => $order,
+ head => $head_hash,
+ body => $body,
+ order => $order,
mycrlf => $mycrlf,
header_names => { map { lc $_ => $_ } keys %$head_hash }
}, $class;
@@ -125,7 +125,7 @@
sub header {
my ($self, $field) = @_;
- $field = $self->{header_names}->{lc $field} || return "";
+ return '' unless $field = $self->{header_names}->{lc $field};
return wantarray ? @{$self->{head}->{$field}}
: $self->{head}->{$field}->[0];
}
@@ -142,9 +142,9 @@
sub header_set {
my ($self, $field, @data) = @_;
if ($GROUCHY) {
- croak "I am not going to break RFC2822 and neither are you"
+ croak "field name contains illegal characters"
unless $field =~ /^[\x21-\x39\x3b-\x7e]+$/;
- carp "You're a miserable bastard but I'll let you off this time"
+ carp "field name is not limited to hyphens and alphanumerics"
unless $field =~ /^[\w-]+$/;
}
@@ -166,7 +166,10 @@
=cut
-sub body { return $_[0]->{body} } # We like this. This is simple.
+sub body {
+ my ($self) = @_;
+ return defined($self->{body}) ? $self->{body} : '';
+}
=head2 body_set
@@ -174,25 +177,22 @@
=cut
-sub body_set { $_[0]->{body} = $_[1] || '' }
+sub body_set { $_[0]->{body} = $_[1]; $_[0]->body }
=head2 as_string
-Returns the mail as a string, reconstructing the headers. Please note
-that header fields are kept in order if they are unique, but, for,
-instance, multiple "Received" headers will be grouped together. (This is
-in accordance with RFC2822, honest.)
-
-Also, if you've added new headers with C<header_set> that weren't in the
-original mail, they'll be added to the end.
-
-=cut
-
-# However, for the purposes of this standard, header
-# fields SHOULD NOT be reordered when a message is transported or
-# transformed. More importantly, the trace header fields and resent
-# header fields MUST NOT be reordered, and SHOULD be kept in blocks
-# prepended to the message.
+Returns the mail as a string, reconstructing the headers.
+
+If you've added new headers with C<header_set> that weren't in the original
+mail, they'll be added to the end.
+
+=cut
+
+# RFC 2822, 3.6:
+# ...for the purposes of this standard, header fields SHOULD NOT be reordered
+# when a message is transported or transformed. More importantly, the trace
+# header fields and resent header fields MUST NOT be reordered, and SHOULD be
+# kept in blocks prepended to the message.
sub as_string {
my $self = shift;
@@ -202,25 +202,30 @@
sub _headers_as_string {
my $self = shift;
my @order = @{$self->{order}};
- my %head = %{$self->{head}};
- my $stuff = "";
- while (keys %head) {
- my $thing = shift @order;
- next unless exists $head{$thing}; # We have already dealt with it
- $stuff .= $self->_header_as_string($thing, $head{$thing});
- delete $head{$thing};
- }
- return $stuff;
+
+ my $header_str = "";
+ my %seen;
+
+ for my $header (@{$self->{order}}) {
+ $header_str .= $self->_header_as_string(
+ $header,
+ $self->{head}{$header}[ $seen{$header}++ ]
+ );
+ }
+
+ return $header_str;
}
sub _header_as_string {
my ($self, $field, $data) = @_;
- my @stuff = @$data;
+
# Ignore "empty" headers
- return '' unless @stuff = grep { defined $_ } @stuff;
- return join "", map { length > 78 ? $self->_fold($_) : "$_$self->{mycrlf}" }
- map { "$field: $_" }
- @stuff;
+ return '' unless defined $data;
+
+ my $string = "$field: $data";
+
+ return (length $string > 78) ? $self->_fold($string)
+ : "$string$self->{mycrlf}";
}
sub _fold {
Modified: packages/libemail-simple-perl/branches/upstream/current/t/badly-folded.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/badly-folded.t?rev=3392&op=diff
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/badly-folded.t (original)
+++ packages/libemail-simple-perl/branches/upstream/current/t/badly-folded.t Thu Aug 3 14:09:27 2006
@@ -1,19 +1,35 @@
#!perl -w
use strict;
-use Test::More tests => 2;
+use Test::More tests => 5;
# This time, with folding!
use_ok("Email::Simple");
sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
-my $mail_text = read_file("t/test-mails/badly-folded");
+{
+ my $mail_text = read_file("t/test-mails/badly-folded");
-my $msg1 = Email::Simple->new($mail_text);
-my $msg2 = Email::Simple->new($msg1->as_string);
+ my $msg1 = Email::Simple->new($mail_text);
+ my $msg2 = Email::Simple->new($msg1->as_string);
-is(
- $msg2->header('X-Sieve'),
- 'CMU Sieve 2.2',
- "still have X-Sieve header after round trip",
-);
+ is(
+ $msg2->header('X-Sieve'),
+ 'CMU Sieve 2.2',
+ "still have X-Sieve header after round trip",
+ );
+}
+
+{
+ my $mail_text = read_file("t/test-mails/badly-folded-noindent");
+
+ my $msg1 = Email::Simple->new($mail_text);
+
+ is($msg1->header('Bar'), 'Bar', "got first header ok");
+ is(
+ $msg1->header('Badly-Folded'),
+ 'This header is badly folded because even though it goes onto the second line, it has no indent.',
+ "got badly folded, middle header OK",
+ );
+ is($msg1->header('Foo'), 'Foo', "got final header ok");
+}
Added: packages/libemail-simple-perl/branches/upstream/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/basic.t?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/basic.t (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/basic.t Thu Aug 3 14:09:27 2006
@@ -1,0 +1,76 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 18;
+
+sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
+use_ok("Email::Simple");
+# Very basic functionality test
+my $mail_text = read_file("t/test-mails/josey-nofold");
+my $mail = Email::Simple->new($mail_text);
+isa_ok($mail, "Email::Simple");
+
+like($mail->{head}->{From}->[0], qr/Andrew/, "Andrew's in the header");
+
+my $old_from;
+is($old_from = $mail->header("From"),
+ 'Andrew Josey <ajosey at rdg.opengroup.org>',
+ "We can get a header");
+my $sc = 'Simon Cozens <simon at cpan.org>';
+is($mail->header_set("From", $sc), $sc, "Setting returns new value");
+is($mail->header("From"), $sc, "Which is consistently returned");
+
+is($mail->header("Bogus"), '', "missing header returns '' (this may change!)");
+
+# Put andrew back:
+$mail->header_set("From", $old_from);
+
+my $body;
+like($body = $mail->body, qr/Austin Group Chair/, "Body has sane stuff in it");
+my $old_body;
+
+my $hi = "Hi there!\n";
+$mail->body_set($hi);
+is($mail->body, $hi, "Body can be set properly");
+
+$mail->body_set($body);
+is($mail->as_string, $mail_text, "Good grief, it's round-trippable");
+is(Email::Simple->new($mail->as_string)->as_string, $mail_text, "Good grief, it's still round-trippable");
+
+{
+ my $email = Email::Simple->new($mail->as_string);
+
+ $email->body_set(undef);
+ is(
+ $email->body,
+ '',
+ "setting body to undef makes ->body return ''",
+ );
+
+ $email->body_set(0);
+ is(
+ $email->body,
+ '0',
+ "setting body to false string makes ->body return that",
+ );
+
+ $email->header_set('Previously-Unknown' => 'wonderful species');
+ is(
+ $email->header('Previously-Unknown'),
+ 'wonderful species',
+ "we can add headers that were previously not in the message",
+ );
+ like(
+ $email->as_string,
+ qr/Previously-Unknown: wonderful species/,
+ "...and the show up in the stringification",
+ );
+}
+
+# With nasty newlines
+my $nasty = "Subject: test\n\rTo: foo\n\r\n\rfoo\n\r";
+$mail = Email::Simple->new($nasty);
+my ($x,$y) = Email::Simple::_split_head_from_body($nasty);
+is ($x, "Subject: test\n\rTo: foo\n\r", "Can split head OK");
+my $test = $mail->as_string;
+is($test, $nasty, "Round trip that too");
+is(Email::Simple->new($mail->as_string)->as_string, $nasty, "... twice");
Added: packages/libemail-simple-perl/branches/upstream/current/t/folding.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/folding.t?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/folding.t (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/folding.t Thu Aug 3 14:09:27 2006
@@ -1,0 +1,24 @@
+#!perl -w
+use strict;
+use Test::More tests => 5;
+
+# This time, with folding!
+
+use_ok("Email::Simple");
+sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
+
+my $mail_text = read_file("t/test-mails/josey-fold");
+
+my $mail = Email::Simple->new($mail_text);
+isa_ok($mail, "Email::Simple");
+is($mail->header("References"),
+ q{<200211120937.JAA28130 at xoneweb.opengroup.org> <1021112125524.ZM7503 at skye.rdg.opengroup.org> <3DD221BB.13116D47 at sun.com>},
+ "References header checks out");
+is($mail->header("reFerEnceS"),
+ q{<200211120937.JAA28130 at xoneweb.opengroup.org> <1021112125524.ZM7503 at skye.rdg.opengroup.org> <3DD221BB.13116D47 at sun.com>},
+ "References header checks out with case folding");
+is_deeply([$mail->header("Received")],
+[
+'from mailman.opengroup.org ([192.153.166.9]) by deep-dark-truthful-mirror.pad with smtp (Exim 3.36 #1 (Debian)) id 18Buh5-0006Zr-00 for <posix at simon-cozens.org>; Wed, 13 Nov 2002 10:24:23 +0000',
+'(qmail 1679 invoked by uid 503); 13 Nov 2002 10:10:49 -0000'],
+"And the received headers are folded gracefully, and multiple headers work");
Added: packages/libemail-simple-perl/branches/upstream/current/t/header-case.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/header-case.t?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/header-case.t (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/header-case.t Thu Aug 3 14:09:27 2006
@@ -1,0 +1,10 @@
+use Test::More tests => 1;
+use Email::Simple;
+
+my $m = Email::Simple->new("Foo-Bar: Baz\n\ntest\n");
+$m->header_set("Foo-bar", "quux");
+is($m->as_string, "Foo-Bar: quux
+
+test\n", "Only one header this time");
+
+
Added: packages/libemail-simple-perl/branches/upstream/current/t/header-junk.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/header-junk.t?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/header-junk.t (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/header-junk.t Thu Aug 3 14:09:27 2006
@@ -1,0 +1,14 @@
+#!perl
+use strict;
+use Test::More tests => 3;
+
+use_ok('Email::Simple');
+
+sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
+
+my $mail_text = read_file("t/test-mails/junk-in-header");
+
+my $mail = Email::Simple->new($mail_text);
+isa_ok($mail, "Email::Simple");
+
+unlike($mail->body, qr/linden/, "junk droped from header");
Added: packages/libemail-simple-perl/branches/upstream/current/t/long-msgid.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/long-msgid.t?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/long-msgid.t (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/long-msgid.t Thu Aug 3 14:09:27 2006
@@ -1,0 +1,19 @@
+#!perl -w
+use strict;
+use Test::More tests => 3;
+
+# This time, with folding!
+
+use_ok("Email::Simple");
+sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
+
+my $mail_text = read_file("t/test-mails/long-msgid");
+
+my $mail = Email::Simple->new($mail_text);
+isa_ok($mail, "Email::Simple");
+
+SKIP: {
+ skip "no alarm() on win32", 1 if $^O =~ /mswin32/i;
+ alarm 5;
+ ok($mail->as_string(), "Doesn't hang");
+};
Added: packages/libemail-simple-perl/branches/upstream/current/t/many-repeats.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/many-repeats.t?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/many-repeats.t (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/many-repeats.t Thu Aug 3 14:09:27 2006
@@ -1,0 +1,16 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 4;
+
+sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
+use_ok("Email::Simple");
+# Very basic functionality test
+my $mail_text = read_file("t/test-mails/many-repeats");
+my $mail = Email::Simple->new($mail_text);
+isa_ok($mail, "Email::Simple");
+
+my $body = $mail->body;
+
+$mail->body_set($body);
+is($mail->as_string, $mail_text, "Good grief, it's round-trippable");
+is(Email::Simple->new($mail->as_string)->as_string, $mail_text, "Good grief, it's still round-trippable");
Modified: packages/libemail-simple-perl/branches/upstream/current/t/no-body.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/no-body.t?rev=3392&op=diff
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/no-body.t (original)
+++ packages/libemail-simple-perl/branches/upstream/current/t/no-body.t Thu Aug 3 14:09:27 2006
@@ -1,25 +1,22 @@
#!perl -w
use strict;
-use Test::More tests => 4;
+use Test::More tests => 5;
# This time, with folding!
use_ok("Email::Simple");
sub read_file { local $/; local *FH; open FH, shift or die $!; return <FH> }
-my $mail_text = read_file("t/test-mails/josey-nobody");
+for ('', '-blank') {
+ my $mail_text = read_file("t/test-mails/josey-nobody$_");
-my $mail = Email::Simple->new($mail_text);
-isa_ok($mail, "Email::Simple");
+ my $mail = Email::Simple->new($mail_text);
+ isa_ok($mail, "Email::Simple");
-is(
- $mail->header('From'),
- 'Andrew Josey <ajosey at rdg.opengroup.org>',
- 'correct From header on bodyless message',
-);
+ is(
+ $mail->header('From'),
+ 'Andrew Josey <ajosey at rdg.opengroup.org>',
+ 'correct From header on bodyless message',
+ );
+}
-SKIP: {
- skip "no alarm() on win32", 1 if $^O =~ /mswin32/i;
- alarm 5;
- ok($mail->as_string(), "doesn't hang");
-};
Added: packages/libemail-simple-perl/branches/upstream/current/t/test-mails/badly-folded-noindent
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/test-mails/badly-folded-noindent?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/test-mails/badly-folded-noindent (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/test-mails/badly-folded-noindent Thu Aug 3 14:09:27 2006
@@ -1,0 +1,6 @@
+Bar: Bar
+Badly-Folded: This header is badly folded because even though it goes onto the
+second line, it has no indent.
+Foo: Foo
+
+This is the body!
Added: packages/libemail-simple-perl/branches/upstream/current/t/test-mails/josey-nobody-blank
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/test-mails/josey-nobody-blank?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/test-mails/josey-nobody-blank (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/test-mails/josey-nobody-blank Thu Aug 3 14:09:27 2006
@@ -1,0 +1,19 @@
+Received: (qmail 1679 invoked by uid 503); 13 Nov 2002 10:10:49 -0000
+Resent-Date: 13 Nov 2002 10:10:49 -0000
+Date: Wed, 13 Nov 2002 10:06:51 GMT
+From: Andrew Josey <ajosey at rdg.opengroup.org>
+Message-Id: <1021113100650.ZM12997 at skye.rdg.opengroup.org>
+In-Reply-To: Joanna Farley's message as of Nov 13, 9:56am.
+X-Mailer: Z-Mail (5.0.0 30July97)
+To: austin-group-l at opengroup.org
+Subject: Re: Defect in XBD lround
+MIME-Version: 1.0
+Resent-Message-ID: <gZGK1B.A.uY.iUi09 at mailman>
+Resent-To: austin-group-l at opengroup.org
+Resent-From: austin-group-l at opengroup.org
+X-Mailing-List: austin-group-l:archive/latest/4823
+X-Loop: austin-group-l at opengroup.org
+Precedence: list
+Resent-Sender: austin-group-l-request at opengroup.org
+Content-Type: text/plain; charset=us-ascii
+
Added: packages/libemail-simple-perl/branches/upstream/current/t/test-mails/junk-in-header
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/test-mails/junk-in-header?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/test-mails/junk-in-header (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/test-mails/junk-in-header Thu Aug 3 14:09:27 2006
@@ -1,0 +1,5 @@
+Header-One: steve biko
+linden boulevard represent, represent
+Header-Two: stir it up
+
+ATCQ!
Added: packages/libemail-simple-perl/branches/upstream/current/t/test-mails/many-repeats
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-simple-perl/branches/upstream/current/t/test-mails/many-repeats?rev=3392&op=file
==============================================================================
--- packages/libemail-simple-perl/branches/upstream/current/t/test-mails/many-repeats (added)
+++ packages/libemail-simple-perl/branches/upstream/current/t/test-mails/many-repeats Thu Aug 3 14:09:27 2006
@@ -1,0 +1,39 @@
+Baz: 0
+Foo: 1
+Bar: 2
+Foo: 3
+Bar: 4
+Foo: 5
+Bar: 6
+Foo: 7
+Bar: 8
+Foo: 9
+Bar: A
+Foo: B
+Bar: C
+Foo: D
+Bar: E
+Foo: F
+Bar: G
+Foo: H
+Bar: I
+Foo: J
+Bar: K
+Foo: L
+Bar: M
+Foo: N
+Bar: O
+Foo: P
+Bar: Q
+Foo: R
+Bar: S
+Foo: T
+Bar: U
+Foo: V
+Bar: W
+Foo: X
+Foo: Y
+Bar: Z
+Baz: 0
+
+This is a really stupid message.
More information about the Pkg-perl-cvs-commits
mailing list