From fa1ffcb15303c1d82e2fba66f5280bb8afcaad23 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Fri, 14 Jul 2017 14:41:39 +0000 Subject: [PATCH] Bug 18942: Add test case to prove change Signed-off-by: Lee Jamison --- t/Budgets/CanUserModifyBudget.t | 3 ++- t/Budgets/CanUserUseBudget.t | 4 +++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/t/Budgets/CanUserModifyBudget.t b/t/Budgets/CanUserModifyBudget.t index bef4237..16d091a 100644 --- a/t/Budgets/CanUserModifyBudget.t +++ b/t/Budgets/CanUserModifyBudget.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 133; +use Test::More tests => 134; use C4::Budgets; @@ -135,6 +135,7 @@ my $budget16 = { my $userenv = {}; +ok (!CanUserModifyBudget(0, undef, {})); ok (CanUserModifyBudget($borrower1, $budget1, {superlibrarian => 1})); ok (CanUserModifyBudget($borrower1, $budget1, { diff --git a/t/Budgets/CanUserUseBudget.t b/t/Budgets/CanUserUseBudget.t index ca94065..83884ff 100644 --- a/t/Budgets/CanUserUseBudget.t +++ b/t/Budgets/CanUserUseBudget.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 69; +use Test::More tests => 70; use C4::Budgets; @@ -136,6 +136,8 @@ my $budget16 = { my $userenv = {}; +ok (!CanUserUseBudget(0, undef, {})); + ok (CanUserUseBudget($borrower1, $budget1, {superlibrarian => 1})); ok (CanUserUseBudget($borrower1, $budget1, { acquisition => { -- 2.1.4