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
|
package AuthRealmTestAppProgressive::Controller::Root;
use warnings;
use strict;
use base qw/Catalyst::Controller/;
__PACKAGE__->config(namespace => '');
use Test::More;
sub progressive : Local {
my ( $self, $c ) = @_;
foreach my $realm ( keys %AuthRealmTestAppProgressive::members ) {
while ( my ( $user, $info ) = each %{$AuthRealmTestAppProgressive::members{$realm}} ) {
my $ok = eval {
$c->authenticate(
{ username => $user, password => $info->{password} },
);
};
ok( !$@, "authentication passed." );
ok( $ok, "user authenticated" );
ok( $c->user_in_realm($realm), "user in proper realm" );
}
}
$c->res->body( "ok" );
}
1;
|
