use
strict;
use
warnings;
use
Data::Dumper;
use
Test::More;
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
;