use strict;
use warnings;
use 5.024;
use lib 't/lib';
use Test::Sietima;
my $s = make_sietima(
with_traits => ['SubjectTag'],
subscribers => [
'one@users.example.com',
'two@users.example.com',
],
subject_tag => 'foo',
);
subtest 'adding tag' => sub {
test_sending(
sietima => $s,
);
is(
[ transport->deliveries ],
array {
item hash {
field email => object {
call [cast=>'Email::MIME'] => object {
call [ header_str => 'Subject' ] =>
'[foo] Test Message';
};
};
};
},
'subject tag should be added to all messages',
);
};
subtest 'tag already there' => sub {
test_sending(
sietima => $s,
mail => {
subject => my $subject = "[foo] \N{HEAVY BLACK HEART} test",
},
);
is(
[ transport->deliveries ],
array {
item hash {
field email => object {
call [cast=>'Email::MIME'] => object {
call [ header_str => 'Subject' ] =>
$subject;
};
};
};
},
'subject tag should not be duplicated',
);
};
done_testing;