1 package AuthRealmTestApp::Controller::Root;
4 use base qw/Catalyst::Controller/;
6 __PACKAGE__->config(namespace => '');
11 my ( $self, $c ) = @_;
13 ok(!$c->user, "no user");
15 while ( my ($user, $info) = each %$AuthRealmTestApp::members ) {
19 { username => $user, password => $info->{password} },
22 "user $user authentication"
25 # check existing realms
26 ok( $c->user_in_realm('members'), "user in members realm");
27 ok(!$c->user_in_realm('admins'), "user not in admins realm");
29 # check an invalid realm
30 ok(!$c->user_in_realm('foobar'), "user not in foobar realm");
32 # check if we've got the right user
33 is( $c->user, $info, "user object is in proper place");
38 ok(!$c->user, "no more user after logout");
42 while ( my ($user, $info) = each %$AuthRealmTestApp::admins ) {
46 { username => $user, password => $info->{password} },
49 "user $user authentication"
52 # check existing realms
53 ok(!$c->user_in_realm('members'), "user not in members realm");
54 ok( $c->user_in_realm('admins'), "user in admins realm");
56 # check an invalid realm
57 ok(!$c->user_in_realm('foobar'), "user not in foobar realm");
59 # check if we've got the right user
60 is( $c->user, $info, "user object is in proper place");
65 ok(!$c->user, "no more user after logout");
69 $c->res->body( "ok" );