X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FAuthSessionTestApp.pm;h=e1db29828f4abeb680f18237406d0fcd5c76c9f6;hb=6f5a33ae20212c39dde31338898c6fa76699e7f7;hp=e3f3680b6dfb3e31a896cea329a4052fd48662ae;hpb=7c4d44afd622b1189bc4c1f51d3e6d96d9ca5287;p=catagits%2FCatalyst-Plugin-Authentication.git

diff --git a/t/lib/AuthSessionTestApp.pm b/t/lib/AuthSessionTestApp.pm
index e3f3680..e1db298 100644
--- a/t/lib/AuthSessionTestApp.pm
+++ b/t/lib/AuthSessionTestApp.pm
@@ -5,6 +5,10 @@ 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
@@ -15,66 +19,18 @@ use Catalyst qw/
 	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->{'Plugin::Authentication'}{users} = $users = {
+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;
+