@@ -, +, @@ --- t/Budgets/CanUserModifyBudget.t | 3 ++- t/Budgets/CanUserUseBudget.t | 4 +++- 2 files changed, 5 insertions(+), 2 deletions(-) --- a/t/Budgets/CanUserModifyBudget.t +++ a/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, { --- a/t/Budgets/CanUserUseBudget.t +++ a/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 => { --