Test for verify address and fix reset __address

[catagits/Catalyst-Plugin-Session.git] / t / lib / SessionTestApp.pm

diff --git a/t/lib/SessionTestApp.pm b/t/lib/SessionTestApp.pm
index 99c8f00..9f211e7 100644 (file)
--- a/t/lib/SessionTestApp.pm
+++ b/t/lib/SessionTestApp.pm
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 package SessionTestApp;
 use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
@@ -6,29 +6,14 @@ use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
 use strict;
 use warnings;
 
-sub login : Global {
-    my ( $self, $c ) = @_;
-    $c->session;
-    $c->res->output("logged in");
-}
+__PACKAGE__->config('Plugin::Session' => {
+    # needed for live_verify_user_agent.t; should be harmless for other tests 
+    verify_user_agent => 1,  
+    
+    # need for live_verify_address.t; should be harmless for other tests
+    verify_address => 1,
 
-sub logout : Global {
-    my ( $self, $c ) = @_;
-    $c->res->output(
-        "logged out after " . $c->session->{counter} . " requests" );
-    $c->delete_session("logout");
-}
-
-sub page : Global {
-    my ( $self, $c ) = @_;
-    if ( $c->sessionid ) {
-        $c->res->output("you are logged in, session expires at " . $c->session_expires);
-        $c->session->{counter}++;
-    }
-    else {
-        $c->res->output("please login");
-    }
-}
+});
 
 __PACKAGE__->setup;