1 package AuthRealmTestAppProgressive::Controller::Root;
4 use base qw/Catalyst::Controller/;
6 __PACKAGE__->config(namespace => '');
10 sub progressive : Local {
11 my ( $self, $c ) = @_;
13 foreach my $realm ( keys %AuthRealmTestAppProgressive::members ) {
14 while ( my ( $user, $info ) = each %{$AuthRealmTestAppProgressive::members{$realm}} ) {
17 { username => $user, password => $info->{password} },
20 ok( !$@, "authentication passed." );
21 ok( $ok, "user authenticated" );
22 ok( $c->user_in_realm($realm), "user in proper realm" );
25 $c->res->body( "ok" );