1 package AuthRealmTestAppCompat;
5 ### using A::Store::minimal with new style realms
6 ### makes the app blow up, since c::p::a::s::minimal
7 ### isa c:a::s::minimal, and it's compat setup() gets
8 ### run, with an unexpected config has (realms on top,
9 ### not users). This tests makes sure the app no longer
10 ### blows up when this happens.
13 Authentication::Store::Minimal
26 my ( $self, $c ) = @_;
28 while ( my ($user, $info) = each %$members ) {
32 { username => $user, password => $info->{password} },
37 ok( !$@, "Test did not die: $@" );
38 ok( $ok, "user $user authentication" );
41 $c->res->body( "ok" );
44 __PACKAGE__->config->{'Plugin::Authentication'} = {
45 default_realm => 'members',
50 password_field => 'password',
51 password_type => 'clear'