Bug 15168: (followup) remove useless diags

While testing this bug I noticed the tests printed useless diags.
This patch removes them for good.

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

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");

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");