From 30f491f6a6e2a02080c50b597955b53088172ff8 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 --- 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 bef4237081..16d091a19c 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 ca94065319..83884ffdfd 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.11.0