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
|
#!perl -wT
use strict;
use Test::More;
use lib 't';
use TestBounceParser;
sub check_one {
my $fn = shift;
subtest $fn => sub {
check_report( $fn, is_bounce => 0 );
};
}
check_one('t/corpus/aol-vacation.msg');
check_one('t/corpus/polish-autoreply.msg');
# Test parsing bluebottle Challenge/Response
check_one('t/corpus/bluebottle.msg');
# Test parsing boxbe Challenge/Response
check_one('t/corpus/boxbe-cr.msg');
check_one('t/corpus/boxbe-cr2.msg');
check_one('t/corpus/whitelist.msg');
done_testing;
|
