@@ -, +, @@ --- t/Acquisition/CanUserReceiveBasket.t | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) --- t/Acquisition/CanUserReceiveBasket.t +++ t/Acquisition/CanUserReceiveBasket.t @@ -21,7 +21,10 @@ my $baskets = { } }; -my $userenv = {}; +my $userenv = { flags => 0 }; + +sub BeSuperLibrarian { $userenv->{flags} = 1; } +sub BeOrdinaryLibrarian { $userenv->{flags} = 0; } my $borrower = {}; @@ -38,7 +41,10 @@ my $order3 = { $userenv->{branch} = 'B1'; # User can receive any orders thanks to his permissions -ok( CanUserReceiveOrder($borrower, $order1, {superlibrarian => 1}) ); +BeSuperLibrarian(); +ok( CanUserReceiveOrder($borrower, $order1, {}) ); +BeOrdinaryLibrarian(); + ok( CanUserReceiveOrder($borrower, $order1, {acquisition => 1}) ); ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive_all => 1 }}) ); @@ -56,7 +62,10 @@ ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive $userenv->{branch} = 'B2'; # User can receive any order thanks to his permissions -ok( CanUserReceiveOrder($borrower, $order1, {superlibrarian => 1}) ); +BeSuperLibrarian(); +ok( CanUserReceiveOrder($borrower, $order1, {}) ); +BeOrdinaryLibrarian(); + ok( CanUserReceiveOrder($borrower, $order1, {acquisition => 1}) ); ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive_all => 1 }}) ); --