1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#!perl -wT
use strict;
use Test::More tests => 23;
use lib 't';
use TestBounceParser;
use Mail::DeliveryStatus::BounceParser;
# Test we can parse various messages without any warnings
my $message = readfile('t/corpus/warning-1.msg');
my $bounce = Mail::DeliveryStatus::BounceParser->new($message);
isa_ok($bounce, 'Mail::DeliveryStatus::BounceParser');
ok($bounce->is_bounce, "This is a bounce");
my ($report) = $bounce->reports;
my $std_reason = $report->get("std_reason");
is($std_reason, "user_unknown", "std reason is user_unknown");
my $message2 = readfile('t/corpus/warning-2.msg');
my $bounce2 = Mail::DeliveryStatus::BounceParser->new($message2);
isa_ok($bounce2, 'Mail::DeliveryStatus::BounceParser');
ok($bounce2->is_bounce, "This is a bounce");
my ($report2) = $bounce2->reports;
my $std_reason2 = $report2->get("std_reason");
is($std_reason2, "user_unknown", "std reason is user_unknown");
my $message3 = readfile('t/corpus/warning-3.msg');
my $bounce3 = Mail::DeliveryStatus::BounceParser->new($message3);
isa_ok($bounce3, 'Mail::DeliveryStatus::BounceParser');
ok($bounce3->is_bounce, "This is a bounce");
my ($report3) = $bounce3->reports;
my $std_reason3 = $report3->get("std_reason");
is($std_reason3, "user_unknown", "std reason is user_unknown");
my $message4 = readfile('t/corpus/warning-4.msg');
my $bounce4 = Mail::DeliveryStatus::BounceParser->new($message4);
isa_ok($bounce4, 'Mail::DeliveryStatus::BounceParser');
ok($bounce4->is_bounce, "This is a bounce");
my ($report4) = $bounce4->reports;
my $std_reason4 = $report4->get("std_reason");
is($std_reason4, "over_quota", "std reason is over_quota");
my $message5 = readfile('t/corpus/warning-5.msg');
my $bounce5 = Mail::DeliveryStatus::BounceParser->new($message5);
isa_ok($bounce5, 'Mail::DeliveryStatus::BounceParser');
ok($bounce5->is_bounce, "This is a bounce");
my ($report5) = $bounce5->reports;
# FIXME: This is actually wrong, but documents current behaviour
# it should give a report!
is($report5, undef, "report is missing");
my $message6 = readfile('t/corpus/warning-6.msg');
my $bounce6 = Mail::DeliveryStatus::BounceParser->new($message6);
isa_ok($bounce6, 'Mail::DeliveryStatus::BounceParser');
ok(!$bounce6->is_bounce, "This is not a bounce");
my $message7 = readfile('t/corpus/warning-7.msg');
my $bounce7 = Mail::DeliveryStatus::BounceParser->new($message7);
isa_ok($bounce7, 'Mail::DeliveryStatus::BounceParser');
ok($bounce7->is_bounce, "This is a bounce");
my ($report7) = $bounce7->reports;
my $std_reason7 = $report7->get("std_reason");
is($std_reason7, "over_quota", "std reason is over_quota");
my $message8 = readfile('t/corpus/warning-8.msg');
my $bounce8 = Mail::DeliveryStatus::BounceParser->new($message8);
isa_ok($bounce8, 'Mail::DeliveryStatus::BounceParser');
# it's not a bounce - transient nonfatal error
ok(!$bounce8->is_bounce, "This is a bounce");
# a bounce without < and > surrounding address
my $message9 = readfile('t/corpus/warning-9.msg');
my $bounce9 = Mail::DeliveryStatus::BounceParser->new($message9);
my $addresses = scalar $bounce9->addresses;
ok( $addresses >= 1, 'Found at least one email address in message' );
|
