16 |
$self_path =~ s#/[^/]+$##; |
$self_path =~ s#/[^/]+$##; |
17 |
ok($self_path, "self_path: $self_path"); |
ok($self_path, "self_path: $self_path"); |
18 |
|
|
19 |
ok(my $nos = new Nos('dsn' => 'dbi:Pg:dbname=notices'), "new"); |
ok(my $nos = new Nos('dsn' => 'dbi:Pg:dbname=notices', full_hostname_in_aliases => 1), "new"); |
20 |
|
|
21 |
my $aliases = $self_path . '/aliases'; |
my $aliases = $self_path . '/aliases'; |
22 |
|
|
90 |
sleep => 0, |
sleep => 0, |
91 |
), 'send_queued_messages for My list'); |
), 'send_queued_messages for My list'); |
92 |
|
|
|
cmp_ok( eval { scalar(Email::Send::Test->emails) }, '==', $sent, "sent $sent emails" ); |
|
|
|
|
93 |
# replay to messages |
# replay to messages |
94 |
|
|
95 |
|
my @emails = Email::Send::Test->emails; |
96 |
|
|
97 |
|
cmp_ok( scalar( @emails ), '==', $sent, "sent $sent emails" ); |
98 |
|
|
99 |
for (my $i = 0; $i < $sent; $i++) { |
for (my $i = 0; $i < $sent; $i++) { |
100 |
ok(my $msg = Email::Send::Test->emails->[$i], "email $i"); |
ok(my $msg = $emails[$i], "email $i"); |
101 |
isa_ok($msg, 'Email::Simple'); |
isa_ok($msg, 'Email::Simple'); |
102 |
my ($from, $to); |
my ($from, $to); |
103 |
ok($from = $msg->header("From"), "found From: $from"); |
ok($from = $msg->header("From"), "found From: $from"); |