From 00e4ae1939a881d91952ade900decd139f113880 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 13 Mar 2019 05:23:21 +0000 Subject: [PATCH] Bug 20128: Problem when checking individual perms where borrower has top level Signed-off-by: Katrin Fischer --- t/db_dependent/Auth/haspermission.t | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/t/db_dependent/Auth/haspermission.t b/t/db_dependent/Auth/haspermission.t index 6118ec98fe..0eb6c3c3c5 100644 --- a/t/db_dependent/Auth/haspermission.t +++ b/t/db_dependent/Auth/haspermission.t @@ -50,6 +50,15 @@ my $borr2 = $builder->build( }, } ); +my $borr3 = $builder->build( + { + source => 'Borrower', + value => { + surname => 'Bor2', + flags => 2**13, # top level tools + }, + } +); $builder->build( { source => 'UserPermission', @@ -150,6 +159,16 @@ subtest 'hashref top level AND tests' => sub { ); is( ref($r), 'HASH', 'Borrower2 (/tools|upload_local_cover_image AND /tools|batch_upload_patron_images) granular' ); $r = haspermission( + $borr3->{userid}, + { + tools => { + 'upload_local_cover_images' => 1, + 'batch_upload_patron_images' => 1 + }, + } + ); + is( ref($r), 'HASH', 'Borrower3 (/tools|upload_local_cover_image AND /tools|batch_upload_patron_images) granular' ); + $r = haspermission( $borr2->{userid}, { tools => { -- 2.11.0