X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FAuthSessionTestApp.pm;h=ce13b000ad0a640127e80c5bf903e57bb040cb23;hb=ecb1afb4950e6cafb94eecf59928d841d687d993;hp=b6e4a503af3984eddb53891f8b229ff46c6e95ed;hpb=9c469e379f826652f73f6465d97f638be7ef51fb;p=catagits%2FCatalyst-Plugin-Authentication.git

diff --git a/t/lib/AuthSessionTestApp.pm b/t/lib/AuthSessionTestApp.pm
index b6e4a50..ce13b00 100644
--- a/t/lib/AuthSessionTestApp.pm
+++ b/t/lib/AuthSessionTestApp.pm
@@ -5,92 +5,32 @@ 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)" );
-	
-	# Rename the user!
-	$users->{bar} = delete $users->{foo};
-}
-
-sub yak : Local {
-    my ( $self, $c ) = @_;
-    ok( $c->sessionid, "session ID was restored after user renamed" );
-    ok( $c->user_exists, "user appears to exist" );
-    ok( !$c->user, "try to restore - user was not restored");
-    ok( !$c->user_exists, "user no longer appears to exist" );
-}
-
-sub goat : Local {
-    my ( $self, $c ) = @_;
-    ok($c->login( "bar", "s3cr3t" ), "can login with clear (new username)");
-    is( $c->user, $users->{bar}, "user object is in proper place");
-    $c->logout;
-}
-
-sub fluffy_bunny : Local {
-    my ( $self, $c ) = @_;
-
-    ok( $c->session_is_valid, "session ID is restored after logout");
-    ok( !$c->user, "no user was restored after logout");
-	
-    $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;
+