use
strict;
use
warnings;
use
Test::More;
require
'./t/600-lhost-code'
;
my
$enginename
=
'X1'
;
my
$enginetest
= Sisimai::Lhost::Code->maketest;
my
$isexpected
= [
{
'n'
=>
'01'
,
's'
=>
qr/\A5[.]0[.]\d+\z/
,
'r'
=>
qr/filtered/
,
'b'
=>
qr/\A1\z/
},
{
'n'
=>
'02'
,
's'
=>
qr/\A5[.]0[.]\d+\z/
,
'r'
=>
qr/filtered/
,
'b'
=>
qr/\A1\z/
},
];
$enginetest
->(
$enginename
,
$isexpected
);
done_testing;