From 0ca825ed80e8a7d13da9085659d091d21aacbbac Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 17 Nov 2015 15:47:46 -0300 Subject: [PATCH] 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 --- t/db_dependent/Serials/Frequency.t | 6 +++--- t/db_dependent/Serials/Numberpattern.t | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/t/db_dependent/Serials/Frequency.t b/t/db_dependent/Serials/Frequency.t index 2b410db..e57ff34 100644 --- a/t/db_dependent/Serials/Frequency.t +++ b/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"); diff --git a/t/db_dependent/Serials/Numberpattern.t b/t/db_dependent/Serials/Numberpattern.t index 42d3df4..6a05325 100644 --- a/t/db_dependent/Serials/Numberpattern.t +++ b/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"); -- 2.6.3