View | Details | Raw Unified | Return to bug 18942
Collapse All | Expand All

(-)a/t/Budgets/CanUserModifyBudget.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 133;
4
use Test::More tests => 134;
5
5
6
use C4::Budgets;
6
use C4::Budgets;
7
7
Lines 135-140 my $budget16 = { Link Here
135
135
136
my $userenv = {};
136
my $userenv = {};
137
137
138
ok (!CanUserModifyBudget(0, undef, {}));
138
139
139
ok (CanUserModifyBudget($borrower1, $budget1, {superlibrarian => 1}));
140
ok (CanUserModifyBudget($borrower1, $budget1, {superlibrarian => 1}));
140
ok (CanUserModifyBudget($borrower1, $budget1, {
141
ok (CanUserModifyBudget($borrower1, $budget1, {
(-)a/t/Budgets/CanUserUseBudget.t (-2 / +3 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 69;
4
use Test::More tests => 70;
5
5
6
use C4::Budgets;
6
use C4::Budgets;
7
7
Lines 136-141 my $budget16 = { Link Here
136
136
137
my $userenv = {};
137
my $userenv = {};
138
138
139
ok (!CanUserUseBudget(0, undef, {}));
140
139
ok (CanUserUseBudget($borrower1, $budget1, {superlibrarian => 1}));
141
ok (CanUserUseBudget($borrower1, $budget1, {superlibrarian => 1}));
140
ok (CanUserUseBudget($borrower1, $budget1, {
142
ok (CanUserUseBudget($borrower1, $budget1, {
141
    acquisition => {
143
    acquisition => {
142
- 

Return to bug 18942