#!perl
use
5.20.0;
BEGIN {
$ENV
{MAIL_BIMI_CACHE_BACKEND} =
'Null'
};
my
$bimi
= Mail::BIMI->new;
my
$resolver
= Net::DNS::Resolver::Mock->new;
$resolver
->zonefile_read(
't/zonefile'
);
$bimi
->resolver(
$resolver
);
my
$dmarc
= Mail::DMARC::PurePerl->new;
$dmarc
->result->result(
'pass'
);
$dmarc
->result->disposition(
'reject'
);
$bimi
->dmarc_object(
$dmarc
->result );
$bimi
->domain(
'dnslookupnorecord.com'
);
$bimi
->selector(
'foobar'
);
my
$record
=
$bimi
->record;
is_deeply(
[
$record
->is_valid(),
$record
->error_codes ],
[ 0, [
'NO_BIMI_RECORD'
] ],
'Test record does not validate'
);
my
$result
=
$bimi
->result;
my
$auth_results
=
$result
->get_authentication_results;
my
$expected_result
=
'bimi=none (No BIMI records found)'
;
is(
$auth_results
,
$expected_result
,
'Auth results correct'
);
is_deeply(
$result
->headers, {},
'headers'
);
done_testing;