Test plan:
0/ Do not apply the patch
1/ Confirm the new test fails
2/ Apply the patch
3/ Confirm the new test passes
4/ Test the installation process
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
$sth->execute($userid);
my $row = $sth->fetchrow();
my $flags = getuserflags( $row, $userid );
$sth->execute($userid);
my $row = $sth->fetchrow();
my $flags = getuserflags( $row, $userid );
- if ( $userid eq C4::Context->config('user') ) {
-
- # Super User Account from /etc/koha.conf
- $flags->{'superlibrarian'} = 1;
- }
return $flags if $flags->{superlibrarian};
return $flags if $flags->{superlibrarian};
subtest 'checkauth() tests' => sub {
subtest 'checkauth() tests' => sub {
my $patron = $builder->build({ source => 'Borrower', value => { flags => undef } })->{userid};
my $patron = $builder->build({ source => 'Borrower', value => { flags => undef } })->{userid};
});
( $userid, $cookie, $sessionID, $flags ) = C4::Auth::checkauth( $cgi, $authnotrequired );
is ( $userid, undef, 'If DB user is used, it should not be logged in' );
});
( $userid, $cookie, $sessionID, $flags ) = C4::Auth::checkauth( $cgi, $authnotrequired );
is ( $userid, undef, 'If DB user is used, it should not be logged in' );
+
+ my $is_allowed = C4::Auth::haspermission( $db_user_id, { can_do => 'everything' } );
+
+ # FIXME This belongs to t/db_dependent/Auth/haspermission.t but we do not want to c/p the pervious mock statements
+ ok( !$is_allowed, 'DB user should not have any permissions');
+
C4::Context->_new_userenv; # For next tests
};
C4::Context->_new_userenv; # For next tests
};