Bug 13888: (follow-up) fix tests for Virtualshelves

This patch fixes failing tests resulting from oversight in the previous
attachments I supplied to this bug number.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
PerplexedTheta 2024-07-23 09:13:39 +01:00 committed by Martin Renvoize
parent 21dc76f35b
commit 58d6a97ef6
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F

View file

@ -303,6 +303,7 @@ subtest 'Shelf permissions' => sub {
my $patron4 = $builder->build( { source => 'Borrower', value => { flags => '0' } } );
my $patron5 = $builder->build( { source => 'Borrower', value => { flags => '4' } } );
my $sth = $dbh->prepare("INSERT INTO user_permissions (borrowernumber, module_bit, code) VALUES (?,?,?)");
$sth->execute($patron2->{borrowernumber}, 20, 'edit_public_list_contents'); # $patron2 has everything checked but not superlibrarian and delete_public_lists
$sth->execute($patron4->{borrowernumber}, 20, 'edit_public_lists'); # $patron4 only has the edit_public_lists sub-permission checked
$sth->execute($patron5->{borrowernumber}, 20, 'edit_public_list_contents'); # $patron5 has the 'catalogue' permission and edit_public_list_contents sub-permission checked