use
strict;
use
warnings;
use
Test::More;
require
'./t/600-lhost-code'
;
my
$enginename
=
'Notes'
;
my
$enginetest
= Sisimai::Lhost::Code->makeinquiry;
my
$isexpected
= {
# INDEX => [['D.S.N.', 'replycode', 'REASON', 'hardbounce'], [...]]
'01'
=> [[
'5.0.901'
,
''
,
'onhold'
, 0]],
'02'
=> [[
'5.0.911'
,
''
,
'userunknown'
, 1]],
'03'
=> [[
'5.0.911'
,
''
,
'userunknown'
, 1]],
};
$enginetest
->(
$enginename
,
$isexpected
);
done_testing;