3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 40; |
use Test::More tests => 44; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok('Nos'); |
use_ok('Nos'); |
125 |
|
|
126 |
cmp_ok($message_id, '==', $message_id2, "message_id: $message_id"); |
cmp_ok($message_id, '==', $message_id2, "message_id: $message_id"); |
127 |
|
|
128 |
|
ok(my $message_id3 = $soap->AddMessageToList({ |
129 |
|
list => $list_name, |
130 |
|
message => "$msg\n and another one", |
131 |
|
})->result, "AddMessageToList named"); |
132 |
|
|
133 |
|
cmp_ok($message_id, '!=', $message_id3, "new message_id: $message_id3"); |
134 |
|
|
135 |
# ListMembers |
# ListMembers |
136 |
|
|
152 |
|
|
153 |
cmp_ok($arr->[1]->{'email'}, 'eq', 'nobody@example.com', "email"); |
cmp_ok($arr->[1]->{'email'}, 'eq', 'nobody@example.com', "email"); |
154 |
|
|
155 |
|
# test sending |
156 |
|
|
157 |
|
ok(my $sent = $soap->SendTest({ |
158 |
|
list => $list_name, |
159 |
|
driver => 'Test', |
160 |
|
sleep => 0, |
161 |
|
})->result, "send_queued_messages for $list_name"); |
162 |
|
|
163 |
|
cmp_ok($sent, '==', 4, 'messages sent'); |
164 |
|
|
165 |
|
# replay to messages |
166 |
|
|
167 |
|
ok(my $received = $soap->MessagesReceived( |
168 |
|
list => $list_name |
169 |
|
)->result, "MessagesReceived for $list_name"); |
170 |
|
|
171 |
|
diag "received = ", dump($received) if ($debug); |
172 |
|
cmp_ok( $received, '==', 0, 'no messages' ); |
173 |
|
|
174 |
# DeleteMember |
# DeleteMember |
175 |
|
|
176 |
ok($soap->DeleteMemberFromList({ |
ok($soap->DeleteMemberFromList({ |
215 |
|
|
216 |
diag "I should add e-mail send test!"; |
diag "I should add e-mail send test!"; |
217 |
|
|
|
=for next_version |
|
|
|
|
|
ok(my $nos = new Nos( |
|
|
'dsn' => 'dbi:Pg:dbname=notices', |
|
|
'aliases' => $aliases, |
|
|
), "new NOS"); |
|
|
|
|
|
# or |
|
|
|
|
|
ok(my $sent = $nos->_nos_object->send_queued_messages( |
|
|
list => $list_name, |
|
|
driver => 'Test', |
|
|
sleep => 0, |
|
|
), "send_queued_messages for $list_name"); |
|
|
|
|
|
my @emails = Email::Send::Test->emails; |
|
|
|
|
|
diag "emails = ", dump( @emails ); |
|
|
|
|
|
=cut |
|
|
|
|
|
# replay to messages |
|
|
|
|
|
ok(my $received = $soap->MessagesReceived({ |
|
|
list => $list_name, |
|
|
})->result, "MessagesReceived for $list_name"); |
|
|
|
|
|
diag "received = ", dump($received) if ($debug); |
|
|
cmp_ok( scalar @$received, '==', 0, 'no messages' ); |
|
|
|
|
218 |
# kill server |
# kill server |
219 |
|
|
220 |
ok(kill('HUP' => $pid), "kill $pid"); |
ok(kill('HUP' => $pid), "kill $pid"); |