package AuthRealmTestAppCompat;
use warnings;
use strict;
+use base qw/Catalyst/;
### using A::Store::minimal with new style realms
### makes the app blow up, since c::p::a::s::minimal
Authentication::Store::Minimal
/;
-use Test::More;
-use Test::Exception;
-
our $members = {
bob => {
password => "s00p3r"
},
};
-sub moose : Local {
- my ( $self, $c ) = @_;
-
- while ( my ($user, $info) = each %$members ) {
-
- my $ok = eval {
- $c->authenticate(
- { username => $user, password => $info->{password} },
- 'members'
- ),
- };
-
- ok( !$@, "Test did not die: $@" );
- ok( $ok, "user $user authentication" );
- }
-
- $c->res->body( "ok" );
-}
-
-__PACKAGE__->config->{'Plugin::Authentication'} = {
+__PACKAGE__->config('Plugin::Authentication' => {
default_realm => 'members',
members => {
credential => {
users => $members,
}
},
-
-};
+});
__PACKAGE__->setup;
+
+1;
+