gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 18756 - add Unit Test 

Signed-off-by: Lee Jamison <ldjamison@marywood.edu>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Fridolin Somers 2017-06-14 12:33:25 +02:00 committed by Jonathan Druart
parent 0c09adbfc8
commit 8b15c06440
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
t/Acquisition/CanUserManageBasket.t
View File

@ -1,7 +1,7 @@
#!/usr/bin/perl
use Modern::Perl;
use Test::More tests => 42;
use Test::More tests => 43;
use C4::Acquisition;
@ -30,6 +30,11 @@ my $borrower2 = {
branchcode => 'B2',
};
my $borrower3 = {
borrowernumber => 3,
branchcode => 'B3',
};
# Baskets
my $basket1 = {
basketno => 1,
@ -185,6 +190,8 @@ ok( CanUserManageBasket($borrower2, $basket2, $flags) );
ok( not CanUserManageBasket($borrower2, $basket3, $flags) );
ok( CanUserManageBasket($borrower2, $basket4, $flags) );
# basket 4 is not managed by borrower3 but by other borrowers
ok( not CanUserManageBasket($borrower3, $basket4, $flags) );
# Mocked subs