diff options
author | dakkar <dakkar@thenautilus.net> | 2016-01-26 18:12:37 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-01-26 18:12:37 +0000 |
commit | f25286a60b8ad26994c5c88c60b7c0ec998ae803 (patch) | |
tree | 170002cc56ba177f5ea8e54eea4ccea1ff3e9fef /t | |
download | config-clawsmail-f25286a60b8ad26994c5c88c60b7c0ec998ae803.tar.gz config-clawsmail-f25286a60b8ad26994c5c88c60b7c0ec998ae803.tar.bz2 config-clawsmail-f25286a60b8ad26994c5c88c60b7c0ec998ae803.zip |
first commit, it works already
Diffstat (limited to 't')
-rw-r--r-- | t/send.t | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/send.t b/t/send.t new file mode 100644 index 0000000..69d21a8 --- /dev/null +++ b/t/send.t @@ -0,0 +1,29 @@ +#!perl +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; + |