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

(-)a/t/Acquisition/CanUserManageBasket.t (-2 / +9 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 => 42;
4
use Test::More tests => 43;
5
5
6
use C4::Acquisition;
6
use C4::Acquisition;
7
7
Lines 30-35 my $borrower2 = { Link Here
30
    branchcode => 'B2',
30
    branchcode => 'B2',
31
};
31
};
32
32
33
my $borrower3 = {
34
    borrowernumber => 3,
35
    branchcode => 'B3',
36
};
37
33
# Baskets
38
# Baskets
34
my $basket1 = {
39
my $basket1 = {
35
    basketno => 1,
40
    basketno => 1,
Lines 185-190 ok( CanUserManageBasket($borrower2, $basket2, $flags) ); Link Here
185
ok( not CanUserManageBasket($borrower2, $basket3, $flags) );
190
ok( not CanUserManageBasket($borrower2, $basket3, $flags) );
186
ok( CanUserManageBasket($borrower2, $basket4, $flags) );
191
ok( CanUserManageBasket($borrower2, $basket4, $flags) );
187
192
193
# Test for Bug
194
# basket 4 is not managed by borrower3 but by other borrowers
195
ok( not CanUserManageBasket($borrower3, $basket4, $flags) );
188
196
189
# Mocked subs
197
# Mocked subs
190
198
191
- 

Return to bug 18756