3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 50; |
use Test::More tests => 68; |
7 |
|
|
8 |
BEGIN { use_ok('Nos') }; |
BEGIN { use_ok('Nos') }; |
9 |
|
|
59 |
|
|
60 |
cmp_ok(scalar $nos->list_members( list => 'My list' ), '==', 1, 'members of My list'); |
cmp_ok(scalar $nos->list_members( list => 'My list' ), '==', 1, 'members of My list'); |
61 |
cmp_ok(scalar $nos->list_members( list => 'another' ), '==', 0, 'members of another'); |
cmp_ok(scalar $nos->list_members( list => 'another' ), '==', 0, 'members of another'); |
62 |
|
|
63 |
|
# now test delete |
64 |
|
|
65 |
|
ok($nos->new_list( list => 'delete', email => 'delete@example.com'), "new_list error"); |
66 |
|
|
67 |
|
ok($nos->add_member_to_list( list => 'delete', email => 'delete_me@example.com' ), "add test member"); |
68 |
|
|
69 |
|
my $nr; |
70 |
|
ok($nr = scalar $nos->list_members( list => 'delete' ), "get delete list members"); |
71 |
|
|
72 |
|
foreach my $i (1 .. 5) { |
73 |
|
ok($nos->add_member_to_list( list => 'delete', 'email' => 'delete_'.$i.'@example.com'), "add bogus member $i"); |
74 |
|
} |
75 |
|
|
76 |
|
cmp_ok(scalar $nos->list_members( list => 'delete' ), '==', $nr + 5, "new member"); |
77 |
|
|
78 |
|
ok($nos->delete_member_from_list( list => 'delete', email => 'delete_me@example.com'), "delete_memeber_from_list"); |
79 |
|
|
80 |
|
cmp_ok(scalar $nos->list_members( list => 'delete' ), '==', $nr + 4, 'member deleted'); |
81 |
|
|
82 |
|
ok(! $nos->delete_member_from_list( list => 'delete', email => 'delete_me@example.com'), "delete non-existant member"); |
83 |
|
|
84 |
|
foreach my $i (1 .. 5) { |
85 |
|
ok($nos->delete_member( email => 'delete_'.$i.'@example.com'), "delete_member $i"); |
86 |
|
} |
87 |
|
|
88 |
|
cmp_ok(scalar $nos->list_members( list => 'delete' ), '==', 0, "list empty"); |