The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
use lib 'lib';
eval "use DBD::SQLite 1.31";
if ($@) {
plan( skip_all => 'DBD::SQLite not available' );
exit;
}
my $mod = 'Mail::DMARC::Report::View::CLI';
use_ok($mod);
my $cli = $mod->new;
isa_ok( $cli, $mod );
$cli->store->backend->config('t/mail-dmarc.ini');
# TODO: add a test report, so there's something to retrieve
#my $list = $cli->list();
#ok( ref $list, "list, ".ref $list );
#warn Dumper($list);
done_testing();
exit;