@@ -, +, @@ --- t/Budgets/CanUserModifyBudget.t | 2 +- t/Budgets/CanUserUseBudget.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) --- a/t/Budgets/CanUserModifyBudget.t +++ a/t/Budgets/CanUserModifyBudget.t @@ -135,7 +135,7 @@ my $budget16 = { my $userenv = {}; -ok (!CanUserModifyBudget(0, undef, {})); +ok( !CanUserModifyBudget( 0, undef, {} ), "CanUserModifyBudget evaluates to false if DB user is passed" ); ok (CanUserModifyBudget($borrower1, $budget1, {superlibrarian => 1})); ok (CanUserModifyBudget($borrower1, $budget1, { --- a/t/Budgets/CanUserUseBudget.t +++ a/t/Budgets/CanUserUseBudget.t @@ -136,7 +136,7 @@ my $budget16 = { my $userenv = {}; -ok (!CanUserUseBudget(0, undef, {})); +ok( !CanUserUseBudget( 0, undef, {} ), "CanUserUseBudget evaluates to false if DB user is passed" ); ok (CanUserUseBudget($borrower1, $budget1, {superlibrarian => 1})); ok (CanUserUseBudget($borrower1, $budget1, { --