|
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 |
- |
|
|