1 package AuthRealmTestApp::Controller::Root;
4 use base qw/Catalyst::Controller/;
6 __PACKAGE__->config(namespace => '');
12 my ( $self, $c ) = @_;
14 ok(!$c->user, "no user");
16 while ( my ($user, $info) = each %$AuthRealmTestApp::members ) {
20 { username => $user, password => $info->{password} },
23 "user $user authentication"
26 # check existing realms
27 ok( $c->user_in_realm('members'), "user in members realm");
28 ok(!$c->user_in_realm('admins'), "user not in admins realm");
30 # check an invalid realm
31 ok(!$c->user_in_realm('foobar'), "user not in foobar realm");
33 # check if we've got the right user
34 is( $c->user, $info, "user object is in proper place");
39 ok(!$c->user, "no more user after logout");
43 while ( my ($user, $info) = each %$AuthRealmTestApp::admins ) {
47 { username => $user, password => $info->{password} },
50 "user $user authentication"
53 # check existing realms
54 ok(!$c->user_in_realm('members'), "user not in members realm");
55 ok( $c->user_in_realm('admins'), "user in admins realm");
57 # check an invalid realm
58 ok(!$c->user_in_realm('foobar'), "user not in foobar realm");
60 # check if we've got the right user
61 is( $c->user, $info, "user object is in proper place");
66 ok(!$c->user, "no more user after logout");
70 $c->res->body( "ok" );