@@ -, +, @@ --- t/db_dependent/Serials/Frequency.t | 6 +++--- t/db_dependent/Serials/Numberpattern.t | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) --- a/t/db_dependent/Serials/Frequency.t +++ a/t/db_dependent/Serials/Frequency.t @@ -70,19 +70,19 @@ is($frequency->{displayorder}, 1, "displayorder OK"); @frequencies = GetSubscriptionFrequencies(); is(scalar @frequencies, 1, "There is one frequency"); -diag("Add another frequency"); +# Add another frequency undef $frequency->{id}; my $id2 = AddSubscriptionFrequency($frequency); @frequencies = GetSubscriptionFrequencies(); is(scalar @frequencies, 2, "There are two frequencies"); -diag("Delete one frequency"); +# Delete one frequency DelSubscriptionFrequency($id); @frequencies = GetSubscriptionFrequencies(); is(scalar @frequencies, 1, "There is one frequency"); -diag("Delete the other frequency"); +# Delete the other frequency DelSubscriptionFrequency($id2); @frequencies = GetSubscriptionFrequencies(); is(scalar @frequencies, 0, "There is no frequency"); --- a/t/db_dependent/Serials/Numberpattern.t +++ a/t/db_dependent/Serials/Numberpattern.t @@ -83,19 +83,19 @@ foreach my $key (qw(label add every setto whenmorethan numbering)) { @numberpatterns = GetSubscriptionNumberpatterns(); is(scalar @numberpatterns, 1, "There is one numberpattern"); -diag("Add another numberpattern"); +# Add another numberpattern undef $numberpattern->{id}; my $id2 = AddSubscriptionNumberpattern($numberpattern); @numberpatterns = GetSubscriptionNumberpatterns(); is(scalar @numberpatterns, 2, "There are two numberpatterns"); -diag("Delete one numberpattern"); +# Delete one numberpattern DelSubscriptionNumberpattern($id); @numberpatterns = GetSubscriptionNumberpatterns(); is(scalar @numberpatterns, 1, "There is one numberpattern"); -diag("Delete the other numberpattern"); +# Delete the other numberpattern DelSubscriptionNumberpattern($id2); @numberpatterns = GetSubscriptionNumberpatterns(); is(scalar @numberpatterns, 0, "There is no numberpattern"); --