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