Update for new Catalyst version and upcoming new Session plugin version

[catagits/Catalyst-Plugin-Session-State-Stash.git] / t / 05-live.t

diff --git a/t/05-live.t b/t/05-live.t
index 2b72873..8d36caf 100644 (file)
--- a/t/05-live.t
+++ b/t/05-live.t
@@ -3,6 +3,9 @@
 use strict;
 use warnings;
 
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+
 use URI::Escape;
 use Test::More;
 
@@ -14,57 +17,6 @@ BEGIN {
     plan skip_all => 'Test::WWW::Mechanize::Catalyst >= 0.40 required' if $Test::WWW::Mechanize::Catalyst::VERSION < 0.40;
 }
 
-{
-
-    package TestApp;
-    use Catalyst qw/                                                                                                  
-      Session                                                                                                         
-      Session::Store::Dummy                                                                                           
-      Session::State::Stash
-      -Debug                                                                                      
-      /;
-
-    sub start_session : Local {
-        my ( $self, $c ) = @_;
-        $c->session->{counter} = 1;
-        $c->res->body($c->stash->{_session}->{id});
-    }
-    
-    sub page : Local {
-        my ( $self, $c, $id ) = @_;
-        $c->stash ( '_session' => {id => $id} );
-        $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
-    }
-        
-    sub stream : Local {
-        my ( $self, $c, $id ) = @_;
-        $c->stash ( '_session' => {id => $id} );
-        my $count = ++$c->session->{counter};
-           $c->res->body("hit number $count");
-    }
-    
-    sub deleteme : Local {
-        my ( $self, $c, $id ) = @_;
-        $c->stash ( '_session' => {id => $id} );
-        my $id2 = $c->get_session_id;
-           $c->delete_session;
-        my $id3 = $c->get_session_id;
-        
-        # In the success case, print 'Pass'
-        if (defined $id2 &&
-            defined $id3 &&
-            $id2 ne $id3
-        ) {
-            $c->res->body('PASS');
-        } else {
-            #In the failure case, provide debug info
-            $c->res->body("FAIL: Matching ids, $id3");
-        }
-    }
-    
-    __PACKAGE__->setup;
-}
-
 use Test::WWW::Mechanize::Catalyst qw/TestApp/;
 
 my $m = Test::WWW::Mechanize::Catalyst->new;