From 84f44670f18834d60001bbe6c2f6d708aa8b4c4a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 14 May 2019 12:21:57 -0500 Subject: [PATCH] Bug 22908: Add tests Content-Type: text/plain; charset=utf-8 Signed-off-by: Liz Rea Signed-off-by: Marcel de Rooy --- t/db_dependent/Suggestions.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Suggestions.t b/t/db_dependent/Suggestions.t index 46d4582006..4c2760e684 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 => 109; +use Test::More tests => 110; use Test::Warn; use t::lib::Mocks; @@ -249,6 +249,13 @@ $messages = C4::Letters::GetQueuedMessages({ }); is ($messages->[0]->{message_transport_type}, 'email', 'When FallbackToSMSIfNoEmail syspref is enabled the suggestion message_transport_type is email if the borrower has an email'); +$mod_suggestion4->{manageddate} = 'invalid date!'; +ModSuggestion($mod_suggestion4); +$messages = C4::Letters::GetQueuedMessages({ + borrowernumber => $borrowernumber2 +}); +is (scalar(@$messages), 1, 'No new letter should have been generated if the update raised an error'); + is( GetSuggestionInfo(), undef, 'GetSuggestionInfo without the suggestion id returns undef' ); $suggestion = GetSuggestionInfo($my_suggestionid); is( $suggestion->{suggestionid}, $my_suggestionid, 'GetSuggestionInfo returns the suggestion id correctly' ); -- 2.11.0