View | Details | Raw Unified | Return to bug 15168
Collapse All | Expand All

(-)a/t/db_dependent/Serials/Frequency.t (-3 / +3 lines)
Lines 70-88 is($frequency->{displayorder}, 1, "displayorder OK"); Link Here
70
@frequencies = GetSubscriptionFrequencies();
70
@frequencies = GetSubscriptionFrequencies();
71
is(scalar @frequencies, 1, "There is one frequency");
71
is(scalar @frequencies, 1, "There is one frequency");
72
72
73
diag("Add another frequency");
73
# Add another frequency
74
undef $frequency->{id};
74
undef $frequency->{id};
75
my $id2 = AddSubscriptionFrequency($frequency);
75
my $id2 = AddSubscriptionFrequency($frequency);
76
76
77
@frequencies = GetSubscriptionFrequencies();
77
@frequencies = GetSubscriptionFrequencies();
78
is(scalar @frequencies, 2, "There are two frequencies");
78
is(scalar @frequencies, 2, "There are two frequencies");
79
79
80
diag("Delete one frequency");
80
# Delete one frequency
81
DelSubscriptionFrequency($id);
81
DelSubscriptionFrequency($id);
82
@frequencies = GetSubscriptionFrequencies();
82
@frequencies = GetSubscriptionFrequencies();
83
is(scalar @frequencies, 1, "There is one frequency");
83
is(scalar @frequencies, 1, "There is one frequency");
84
84
85
diag("Delete the other frequency");
85
# Delete the other frequency
86
DelSubscriptionFrequency($id2);
86
DelSubscriptionFrequency($id2);
87
@frequencies = GetSubscriptionFrequencies();
87
@frequencies = GetSubscriptionFrequencies();
88
is(scalar @frequencies, 0, "There is no frequency");
88
is(scalar @frequencies, 0, "There is no frequency");
(-)a/t/db_dependent/Serials/Numberpattern.t (-4 / +3 lines)
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
- 

Return to bug 15168