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
|
use strict;
use warnings;
use Test::More;
use lib qw(./lib ./blib/lib);
require './t/600-lhost-code';
my $enginename = 'Yahoo';
my $enginetest = Sisimai::Lhost::Code->makeinquiry;
my $isexpected = {
# INDEX => [['D.S.N.', 'replycode', 'REASON', 'hardbounce'], [...]]
'01' => [['5.1.1', '550', 'userunknown', 1]],
'02' => [['5.2.2', '550', 'mailboxfull', 0]],
'03' => [['5.1.1', '550', 'userunknown', 1]],
'04' => [['5.2.2', '550', 'mailboxfull', 0]],
'05' => [['5.2.1', '550', 'userunknown', 1]],
'06' => [['5.0.910', '550', 'filtered', 0]],
'07' => [['5.0.911', '550', 'userunknown', 1]],
'08' => [['5.2.2', '550', 'mailboxfull', 0]],
'09' => [['5.0.932', '', 'notaccept', 1]],
'10' => [['5.1.1', '550', 'userunknown', 1]],
'11' => [['5.1.8', '501', 'rejected', 0]],
'12' => [['5.1.8', '501', 'rejected', 0]],
'13' => [['5.0.930', '', 'systemerror', 0]],
'14' => [['5.0.971', '554', 'blocked', 0]],
};
$enginetest->($enginename, $isexpected);
done_testing;
|
