From 76b470f0352acb25b9635aea45f5b42bd2ff2fc3 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 8 Apr 2020 10:52:23 -0400 Subject: [PATCH] Bug 22778: Add unit test Signed-off-by: Jonathan Druart Signed-off-by: Martin Renvoize (cherry picked from commit 0c64138dd1787dd35c06cad1512dd1a2de470bfb) Signed-off-by: Lucas Gass --- t/db_dependent/Suggestions.t | 35 ++++++++++++++++++++++++++++++++++- 1 file changed, 34 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Suggestions.t b/t/db_dependent/Suggestions.t index 5519d86ba1..98c4ea60c5 100644 --- a/t/db_dependent/Suggestions.t +++ b/t/db_dependent/Suggestions.t @@ -18,7 +18,7 @@ use Modern::Perl; use DateTime::Duration; -use Test::More tests => 110; +use Test::More tests => 111; use Test::Warn; use t::lib::Mocks; @@ -145,6 +145,19 @@ my $my_suggestion_with_budget2 = { note => 'my note', budgetid => $budget_id, }; +my $my_suggestion_without_suggestedby = { + title => 'my title', + author => 'my author', + publishercode => 'my publishercode', + suggestedby => undef, + biblionumber => $biblio_1->biblionumber, + branchcode => 'CPL', + managedby => '', + manageddate => '', + accepteddate => dt_from_string, + note => 'my note', + quantity => '', # Insert an empty string into int to catch strict SQL modes errors +}; is( CountSuggestion(), 0, 'CountSuggestion without the status returns 0' ); is( CountSuggestion('ASKED'), 0, 'CountSuggestion returns the correct number of suggestions' ); @@ -600,4 +613,24 @@ subtest 'EmailPurchaseSuggestions' => sub { 'suggestions@b.c', 'EmailAddressForSuggestions uses EmailAddressForSuggestions when set' ); }; +subtest 'ModSuggestion should work on suggestions without a suggester' => sub { + plan tests => 2; + + $dbh->do(q|DELETE FROM suggestions|); + my $my_suggestionid = NewSuggestion($my_suggestion_without_suggestedby); + $suggestion = GetSuggestion($my_suggestionid); + is( $suggestion->{suggestedby}, undef, "Suggestedby is undef" ); + + ModSuggestion( + { + suggestionid => $my_suggestionid, + STATUS => 'CHECKED', + note => "Test note" + } + ); + $suggestion = GetSuggestion($my_suggestionid); + + is( $suggestion->{note}, "Test note", "ModSuggestion works on suggestions without a suggester" ); +}; + $schema->storage->txn_rollback; -- 2.20.1