refactor expectAuthenticatedAs

This commit is contained in:
Maxime Besson 2021-06-15 11:22:16 +02:00
parent 6f5cd3b645
commit cf59bb915e

View File

@ -337,9 +337,7 @@ Verify that result has a C<Lm-Remote-User> header and value is $user
sub expectAuthenticatedAs {
my ( $res, $user ) = @_;
ok( getHeader( $res, 'Lm-Remote-User' ) eq $user,
" Authenticated as $user" )
or explain( $res->[1], "Lm-Remote-User => $user" );
is( getHeader( $res, 'Lm-Remote-User' ), $user, "Authenticated as $user" );
count(1);
}