Lines 83-101
foreach my $key (qw(label add every setto whenmorethan numbering)) {
Link Here
|
83 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
83 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
84 |
is(scalar @numberpatterns, 1, "There is one numberpattern"); |
84 |
is(scalar @numberpatterns, 1, "There is one numberpattern"); |
85 |
|
85 |
|
86 |
diag("Add another numberpattern"); |
86 |
# Add another numberpattern |
87 |
undef $numberpattern->{id}; |
87 |
undef $numberpattern->{id}; |
88 |
my $id2 = AddSubscriptionNumberpattern($numberpattern); |
88 |
my $id2 = AddSubscriptionNumberpattern($numberpattern); |
89 |
|
89 |
|
90 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
90 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
91 |
is(scalar @numberpatterns, 2, "There are two numberpatterns"); |
91 |
is(scalar @numberpatterns, 2, "There are two numberpatterns"); |
92 |
|
92 |
|
93 |
diag("Delete one numberpattern"); |
93 |
# Delete one numberpattern |
94 |
DelSubscriptionNumberpattern($id); |
94 |
DelSubscriptionNumberpattern($id); |
95 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
95 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
96 |
is(scalar @numberpatterns, 1, "There is one numberpattern"); |
96 |
is(scalar @numberpatterns, 1, "There is one numberpattern"); |
97 |
|
97 |
|
98 |
diag("Delete the other numberpattern"); |
98 |
# Delete the other numberpattern |
99 |
DelSubscriptionNumberpattern($id2); |
99 |
DelSubscriptionNumberpattern($id2); |
100 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
100 |
@numberpatterns = GetSubscriptionNumberpatterns(); |
101 |
is(scalar @numberpatterns, 0, "There is no numberpattern"); |
101 |
is(scalar @numberpatterns, 0, "There is no numberpattern"); |
102 |
- |
|
|