t/tests/sietima.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!perl 
use strict;
use warnings;
use 5.020;
use lib 't/lib';
use Test::Sietima;
 
ok(make_sietima(),'should instantiate') or bail_out;
 
subtest 'no subscribers' => sub {
    test_sending(
        to => [],
    );
};
 
subtest 'with subscribers' => sub {
    my @subscriber_addresses = (
        'one@users.example.com',
        'two@users.example.com',
    );
    test_sending(
        sietima => { subscribers => \@subscriber_addresses },
        to => \@subscriber_addresses,
    );
};
 
done_testing;