refactor expectAuthenticatedAs
This commit is contained in:
parent
6f5cd3b645
commit
cf59bb915e
|
@ -337,9 +337,7 @@ Verify that result has a C<Lm-Remote-User> header and value is $user
|
||||||
|
|
||||||
sub expectAuthenticatedAs {
|
sub expectAuthenticatedAs {
|
||||||
my ( $res, $user ) = @_;
|
my ( $res, $user ) = @_;
|
||||||
ok( getHeader( $res, 'Lm-Remote-User' ) eq $user,
|
is( getHeader( $res, 'Lm-Remote-User' ), $user, "Authenticated as $user" );
|
||||||
" Authenticated as $user" )
|
|
||||||
or explain( $res->[1], "Lm-Remote-User => $user" );
|
|
||||||
count(1);
|
count(1);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user