1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
package AuthRealmTestAppCompat::Controller::Root;
use warnings;
use strict;
use base qw/Catalyst::Controller/;
__PACKAGE__->config( namespace => '' );
use Test::More;
use Test::Exception;
sub moose : Local {
my ( $self, $c ) = @_;
while ( my ($user, $info) = each %$AuthRealmTestAppCompat::members ) {
my $ok = eval {
$c->authenticate(
{ username => $user, password => $info->{password} },
'members'
),
};
ok( !$@, "Test did not die: $@" );
ok( $ok, "user $user authentication" );
}
$c->res->body( "ok" );
}
1;
|
