|
Lines 50-55
my $borr2 = $builder->build(
Link Here
|
| 50 |
}, |
50 |
}, |
| 51 |
} |
51 |
} |
| 52 |
); |
52 |
); |
|
|
53 |
my $borr3 = $builder->build( |
| 54 |
{ |
| 55 |
source => 'Borrower', |
| 56 |
value => { |
| 57 |
surname => 'Bor2', |
| 58 |
flags => 2**13, # top level tools |
| 59 |
}, |
| 60 |
} |
| 61 |
); |
| 53 |
$builder->build( |
62 |
$builder->build( |
| 54 |
{ |
63 |
{ |
| 55 |
source => 'UserPermission', |
64 |
source => 'UserPermission', |
|
Lines 150-155
subtest 'hashref top level AND tests' => sub {
Link Here
|
| 150 |
); |
159 |
); |
| 151 |
is( ref($r), 'HASH', 'Borrower2 (/tools|upload_local_cover_image AND /tools|batch_upload_patron_images) granular' ); |
160 |
is( ref($r), 'HASH', 'Borrower2 (/tools|upload_local_cover_image AND /tools|batch_upload_patron_images) granular' ); |
| 152 |
$r = haspermission( |
161 |
$r = haspermission( |
|
|
162 |
$borr3->{userid}, |
| 163 |
{ |
| 164 |
tools => { |
| 165 |
'upload_local_cover_images' => 1, |
| 166 |
'batch_upload_patron_images' => 1 |
| 167 |
}, |
| 168 |
} |
| 169 |
); |
| 170 |
is( ref($r), 'HASH', 'Borrower3 (/tools|upload_local_cover_image AND /tools|batch_upload_patron_images) granular' ); |
| 171 |
$r = haspermission( |
| 153 |
$borr2->{userid}, |
172 |
$borr2->{userid}, |
| 154 |
{ |
173 |
{ |
| 155 |
tools => { |
174 |
tools => { |
| 156 |
- |
|
|