use strict;
use warnings;
use Test::More;
use Config::ClawsMail;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
my $claws = Config::ClawsMail->new();
my $account = $claws->accounts->{BB};
my $address = sprintf q{%s <%s>},
$account->name, $account->address;
my $email = Email::Simple->create(
header => [
To => $address,
From => $address,
Subject => 'config::claws-mail test',
],
body => "test for Config::ClawsMail\n",
);
ok(
sendmail($email, {transport => $account->email_transport}),
'sending should work',
);
done_testing;