Bug 19349: (QA follow-up) Cosmetic changes

[koha.git] / t / Acquisition / CanUserManageBasket.t

diff --git a/t/Acquisition/CanUserManageBasket.t b/t/Acquisition/CanUserManageBasket.t
index 0733474..a862983 100644 (file)
--- a/t/Acquisition/CanUserManageBasket.t
+++ b/t/Acquisition/CanUserManageBasket.t
@@ -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