From 59d35bbc02144498c9cd8a1f275bf5e63b9c4b8f Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Thu, 21 Feb 2019 08:41:29 +0000 Subject: [PATCH] Bug 21756: (follow-up) Add test for deprecation warning Signed-off-by: Martin Renvoize Signed-off-by: Josef Moravec --- t/db_dependent/Accounts.t | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t index 921b4bc4b9..2dfe97b1e7 100644 --- a/t/db_dependent/Accounts.t +++ b/t/db_dependent/Accounts.t @@ -18,7 +18,7 @@ use Modern::Perl; -use Test::More tests => 33; +use Test::More tests => 34; use Test::MockModule; use Test::Warn; @@ -79,7 +79,12 @@ my $amount = '5.000000'; my $description = "Test fee!"; my $type = 'L'; my $note = 'Test note!'; -manualinvoice( $patron->{borrowernumber}, $item->{itemnumber}, $description, $type, $amount, $note ); +warning_like { + C4::Accounts::manualinvoice( $patron->{borrowernumber}, + $item->{itemnumber}, $description, $type, $amount, $note ) +} +qr/C4::Accounts::manualinvoice is deprecated in favor of Koha::Account->add_debit/, + "deprecation warning recieved for manualinvoice"; my ($accountline) = Koha::Account::Lines->search( { borrowernumber => $patron->{borrowernumber} -- 2.11.0