3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 38; |
use Test::More tests => 39; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok('Nos'); |
use_ok('Nos'); |
185 |
|
|
186 |
cmp_ok($#{$has_members}, '==', -1, "ok, no members"); |
cmp_ok($#{$has_members}, '==', -1, "ok, no members"); |
187 |
|
|
188 |
|
diag "I should add e-mail send test!"; |
189 |
|
|
190 |
|
ok(! $soap->MessagesReceived({ |
191 |
|
list => $list_name, |
192 |
|
})->result, "MessagesReceived for $list_name"); |
193 |
|
|
194 |
# kill server |
# kill server |
195 |
|
|
196 |
ok(kill('HUP' => $pid), "kill $pid"); |
ok(kill('HUP' => $pid), "kill $pid"); |