#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::More tests => 5;
use_ok('App::Addex');
my $addex = App::Addex->new({
classes => {
addressbook => 'App::Addex::AddressBook::Test',
output => [ 'App::Addex::Output::SpamAssassin' ],
},
'App::Addex::Output::SpamAssassin' => {
filename => \(my $buffer),
},
});
isa_ok($addex, 'App::Addex');
$addex->run;
my @addrs = qw(
rjbs@example.com
rjbs@example.biz
jcap@example.com
);
for my $addr (@addrs) {
like(
$buffer,
qr/^whitelist_from \Q$addr\E/sm,
"created whitelist for $addr",
);
}