Version 0.10017

[catagits/Catalyst-Plugin-Authentication.git] / t / lib / AuthSessionTestApp.pm

diff --git a/t/lib/AuthSessionTestApp.pm b/t/lib/AuthSessionTestApp.pm
index 273bb55..ce13b00 100644 (file)
--- a/t/lib/AuthSessionTestApp.pm
+++ b/t/lib/AuthSessionTestApp.pm
@@ -1,80 +1,36 @@
 package User::SessionRestoring;
-use base qw/Catalyst::Plugin::Authentication::User::Hash/;
+use base qw/Catalyst::Authentication::User::Hash/;
 
 sub for_session { $_[0]->id }
 sub store { $_[0]->{store} }
 
 package AuthSessionTestApp;
+use strict;
+use warnings;
+use base qw/Catalyst/;
+
 use Catalyst qw/
-       Session
-       Session::Store::Dummy
-       Session::State::Cookie
+    Session
+    Session::Store::Dummy
+    Session::State::Cookie
 
-       Authentication
-       Authentication::Store::Minimal
-       Authentication::Credential::Password
+    Authentication
+    Authentication::Store::Minimal
+    Authentication::Credential::Password
 /;
 
-use Test::More;
-use Test::Exception;
-
-use Digest::MD5 qw/md5/;
-
-our $users;
-
-sub moose : Local {
-       my ( $self, $c ) = @_;
-
-       ok(!$c->sessionid, "no session id yet");
-       ok(!$c->user_exists, "no user exists");
-       ok(!$c->user, "no user yet");
-       ok($c->login( "foo", "s3cr3t" ), "can login with clear");
-       is( $c->user, $users->{foo}, "user object is in proper place");
-}
-
-sub elk : Local {
-       my ( $self, $c ) = @_;
-
-       ok( $c->sessionid, "session ID was restored" );
-       ok( $c->user_exists, "user exists" );
-       ok( $c->user, "a user was also restored");
-       is_deeply( $c->user, $users->{foo}, "restored user is the right one (deep test - store might change identity)" );
-    
-    $c->logout;
-}
-
-sub fluffy_bunny : Local {
-       my ( $self, $c ) = @_;
-
-       ok( $c->session_is_valid, "no session ID was restored");
-       ok( !$c->user, "no user was restored");
-       
-    $c->delete_session("bah");
-}
-
-sub possum : Local {
-    my ( $self, $c ) = @_;
-
-       ok( !$c->session_is_valid, "no session ID was restored");
-    $c->session->{definitely_not_a_user} = "moose";
-
-}
-
-sub butterfly : Local {
-    my ( $self, $c ) = @_;
-
-    ok( $c->session_is_valid, "valid session" );
-    ok( !$c->user_exists, "but no user exists" );
-    ok( !$c->user, "no user object either" );
-}
-
-__PACKAGE__->config->{authentication}{users} = $users = {
-       foo => User::SessionRestoring->new(
-               id => 'foo',
-               password => "s3cr3t",
-       ),
+our $users = {
+    foo => User::SessionRestoring->new(
+        id => 'foo',
+        password => "s3cr3t",
+    ),
 };
 
+__PACKAGE__->config(authentication => {users => $users});
+
 __PACKAGE__->setup;
 
 $users->{foo}{store} = __PACKAGE__->default_auth_store;
+
+1;
+