35 |
return $a->exists($email); |
return $a->exists($email); |
36 |
} |
} |
37 |
|
|
38 |
ok($nos->new_list( list => 'My list', email => 'my-list@example.com', aliases => $aliases), "new_list my-list"); |
ok($nos->create_list( list => 'My list', email => 'my-list@example.com', aliases => $aliases), "create_list my-list"); |
39 |
ok(check_aliases('my-list@example.com'), "alias added"); |
ok(check_aliases('my-list@example.com'), "alias added"); |
40 |
|
|
41 |
ok($nos->new_list( list => 'another', email => 'another@example.com', aliases => $aliases), "new_list another"); |
ok($nos->create_list( list => 'another', email => 'another@example.com', aliases => $aliases), "create_list another"); |
42 |
ok(check_aliases('another@example.com'), "alias added"); |
ok(check_aliases('another@example.com'), "alias added"); |
43 |
|
|
44 |
ok($nos->new_list( list => 'test', email => 'test@example.com', aliases => $aliases), "new_list test"); |
ok($nos->create_list( list => 'test', email => 'test@example.com', aliases => $aliases), "create_list test"); |
45 |
ok(check_aliases('test@example.com'), "alias added"); |
ok(check_aliases('test@example.com'), "alias added"); |
46 |
|
|
47 |
ok($nos->_get_list('My list'), "_get_list"); |
ok($nos->_get_list('My list'), "_get_list"); |
95 |
|
|
96 |
# now test delete |
# now test delete |
97 |
|
|
98 |
ok($nos->new_list( list => 'delete', email => 'delete@example.com', aliases => $aliases), "new_list error"); |
ok($nos->create_list( list => 'delete', email => 'delete@example.com', aliases => $aliases), "create_list error"); |
99 |
|
|
100 |
ok($nos->add_member_to_list( list => 'delete', email => 'delete_me@example.com' ), "add test member"); |
ok($nos->add_member_to_list( list => 'delete', email => 'delete_me@example.com' ), "add test member"); |
101 |
|
|
123 |
# test delete lists |
# test delete lists |
124 |
|
|
125 |
foreach my $list (( 'My list', 'test', 'another', 'delete' )) { |
foreach my $list (( 'My list', 'test', 'another', 'delete' )) { |
126 |
ok($nos->delete_list( list => $list, aliases => $aliases ), "delete $list"); |
ok($nos->drop_list( list => $list, aliases => $aliases ), "drop $list"); |
127 |
ok(! $nos->_get_list($list), "$list doesn't exist"); |
ok(! $nos->_get_list($list), "$list doesn't exist"); |
128 |
} |
} |
129 |
|
|