The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

AKXLIX / Sisimai-v5.2.0 / xt / 670-lhost-gmail.t 

            

              
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

              
use strict;
use warnings;
use Test::More;
use lib qw(./lib ./blib/lib);
require './t/600-lhost-code';
my $enginename = 'Gmail';
my $samplepath = sprintf("./set-of-emails/private/lhost-%s", lc $enginename);
my $enginetest = Sisimai::Lhost::Code->makeinquiry;
my $isexpected = {
    # INDEX => [['D.S.N.', 'replycode', 'REASON', 'hardbounce'], [...]]
    '1001'  => [['5.0.947', '',    'expired',         0]],
    '1002'  => [['5.2.1',   '550', 'suspend',         0]],
    '1003'  => [['4.0.947', '',    'expired',         0]],
    '1004'  => [['5.0.910', '550', 'filtered',        0]],
    '1005'  => [['4.0.947', '',    'expired',         0]],
    '1006'  => [['5.0.910', '550', 'filtered',        0]],
    '1007'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1008'  => [['5.0.947', '',    'expired',         0]],
    '1009'  => [['4.0.947', '',    'expired',         0]],
    '1010'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1011'  => [['4.2.2',   '450', 'mailboxfull',     0]],
    '1012'  => [['4.0.947', '',    'expired',         0]],
    '1013'  => [['5.2.2',   '550', 'mailboxfull',     0]],
    '1014'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1015'  => [['5.0.910', '550', 'filtered',        0]],
    '1016'  => [['5.0.910', '550', 'filtered',        0]],
    '1017'  => [['5.0.910', '550', 'filtered',        0]],
    '1018'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1019'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1020'  => [['5.0.911', '550', 'userunknown',     1]],
    '1021'  => [['5.0.911', '550', 'userunknown',     1]],
    '1022'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1023'  => [['5.0.911', '550', 'userunknown',     1]],
    '1024'  => [['5.0.0',   '553', 'blocked',         0]],
    '1025'  => [['5.7.0',   '554', 'filtered',        0]],
    '1026'  => [['5.0.910', '550', 'filtered',        0]],
    '1027'  => [['5.7.1',   '550', 'securityerror',   0]],
    '1028'  => [['5.0.976', '500', 'failedstarttls',  0]],
    '1029'  => [['5.0.901', '',    'onhold',          0]],
    '1030'  => [['5.7.1',   '554', 'blocked',         0]],
    '1031'  => [['5.7.1',   '550', 'blocked',         0]],
    '1032'  => [['5.0.947', '',    'expired',         0]],
    '1033'  => [['5.0.971', '',    'blocked',         0]],
    '1034'  => [['4.0.947', '',    'expired',         0]],
    '1035'  => [['4.0.971', '',    'blocked',         0]],
    '1036'  => [['4.0.971', '',    'blocked',         0]],
    '1037'  => [['5.0.971', '',    'blocked',         0]],
    '1038'  => [['5.0.911', '550', 'userunknown',     1]],
    '1039'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1040'  => [['5.0.947', '',    'expired',         0]],
    '1041'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1042'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1043'  => [['5.0.911', '550', 'userunknown',     1]],
    '1044'  => [['5.0.972', '',    'policyviolation', 0]],
    '1045'  => [['5.0.947', '',    'expired',         0]],
    '1046'  => [['5.1.1',   '550', 'userunknown',     1]],
    '1047'  => [['5.1.1',   '550', 'userunknown',     1],
                ['5.1.1',   '550', 'userunknown',     1],
                ['5.1.1',   '550', 'userunknown',     1]],
    '1048'  => [['5.0.922', '',    'mailboxfull',     0]],
};
plan 'skip_all', sprintf("%s not found", $samplepath) unless -d $samplepath;
$enginetest->($enginename, $isexpected, 1, 0);
done_testing;