54 |
|
|
55 |
$soap->on_debug(sub{print "## ", join("\n## ",@_), "\n";}) if ($debug); |
$soap->on_debug(sub{print "## ", join("\n## ",@_), "\n";}) if ($debug); |
56 |
|
|
57 |
# NewList |
# CreateList |
58 |
|
|
59 |
ok(my $list_id = $soap->NewList({ |
ok(my $list_id = $soap->CreateList({ |
60 |
list => $list_name, |
list => $list_name, |
61 |
from => 'SOAP list', |
from => 'SOAP list', |
62 |
email => 'soap-test@example.com', |
email => 'soap-test@example.com', |
63 |
})->result, "NewList named"); |
})->result, "CreateList named"); |
64 |
|
|
65 |
ok(my $list_id2 = $soap->NewList( |
ok(my $list_id2 = $soap->CreateList( |
66 |
$list_name, |
$list_name, |
67 |
'SOAP test list', |
'SOAP test list', |
68 |
'soap-test@example.com', |
'soap-test@example.com', |
69 |
)->result, "NewList positional"); |
)->result, "CreateList positional"); |
70 |
|
|
71 |
cmp_ok($list_id, '==', $list_id2, "list_id $list_id"); |
cmp_ok($list_id, '==', $list_id2, "list_id $list_id"); |
72 |
|
|
157 |
|
|
158 |
cmp_ok($#{$arr}, '==', 0, "member deleted"); |
cmp_ok($#{$arr}, '==', 0, "member deleted"); |
159 |
|
|
160 |
# DeleteList |
# DropList |
161 |
|
|
162 |
ok($soap->DeleteList({ |
ok($soap->DropList({ |
163 |
list => $list_name, |
list => $list_name, |
164 |
})->result, "DeleteList named"); |
})->result, "DropList named"); |
165 |
|
|
166 |
ok(my $has_members = $soap->ListMembers({ |
ok(my $has_members = $soap->ListMembers({ |
167 |
list => $list_name, |
list => $list_name, |
169 |
|
|
170 |
cmp_ok($#{$has_members}, '==', -1, "ok, no members"); |
cmp_ok($#{$has_members}, '==', -1, "ok, no members"); |
171 |
|
|
172 |
ok($list_id = $soap->NewList({ |
ok($list_id = $soap->CreateList({ |
173 |
list => $list_name, |
list => $list_name, |
174 |
from => 'SOAP list', |
from => 'SOAP list', |
175 |
email => 'soap-test@example.com', |
email => 'soap-test@example.com', |
176 |
})->result, "NewList $list_name (recreated)"); |
})->result, "CreateList $list_name (recreated)"); |
177 |
|
|
178 |
ok($soap->DeleteList( |
ok($soap->DropList( |
179 |
$list_name, |
$list_name, |
180 |
)->result, "DeleteList positional"); |
)->result, "DropList positional"); |
181 |
|
|
182 |
ok($has_members = $soap->ListMembers({ |
ok($has_members = $soap->ListMembers({ |
183 |
list => $list_name, |
list => $list_name, |