X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=t%2Flive_app.t;h=706c1e6db7720b44a319dc4517d0276f767da22b;hp=ac1fc59820ba8a8f7dbd44a79b632924275b1d0a;hb=9292790965e6522e20decdc384de7442b12809d3;hpb=74586782a63bf750618a42e0a5d5ea1549a65ede

diff --git a/t/live_app.t b/t/live_app.t
index ac1fc59..706c1e6 100644
--- a/t/live_app.t
+++ b/t/live_app.t
@@ -1,64 +1,97 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+
 use Test::More;
 
-BEGIN {
-    eval { require Test::WWW::Mechanize::Catalyst };
-    plan skip_all =>
-      "This test requires Test::WWW::Mechanize::Catalyst in order to run"
-      if $@;
-    plan 'no_plan';
-}
+use HTTP::Cookies;
+use Catalyst::Utils ();
+
+use Catalyst::Test qw(CookieTestApp);
+
+my $jar = HTTP::Cookies->new;
+my %cookie;
+my $get = sub {
+    my $url = shift;
+    my $req = Catalyst::Utils::request($url);
+    $jar->add_cookie_header($req);
+    my $res = request($req);
+    $jar->extract_cookies($res);
+
+    $jar->scan( sub {
+        if ($_[1] eq 'cookietestapp_session') {
+            @cookie{qw(
+                version
+                key
+                val
+                path
+                domain
+                port
+                path_spec
+                secure
+                expires
+                discard
+                hash
+            )} = @_;
+        }
+    } );
+
+    return $res;
+};
+
+my $res;
+
+$res = $get->('/stream');
+ok $res->is_success, 'get page';
+like $res->content, qr/hit number 1/, 'session data created';
 
-{
+my $expired = $cookie{expires};
 
-    package CookieTestApp;
-    use Catalyst qw/
-      Session
-      Session::Store::Dummy
-      Session::State::Cookie
-      /;
+$res = $get->('/page');
+ok $res->is_success, 'get page';
+like $res->content, qr/hit number 2/, 'session data restored';
 
-    sub page : Local {
-        my ( $self, $c ) = @_;
-        $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
-    }
+$res = $get->('/page');
+ok $res->is_success, 'get page';
+like $res->content, qr/hit number 3/, 'session data restored';
 
-    sub stream : Local {
-        my ( $self, $c ) = @_;
-        my $count = ++$c->session->{counter};
-        $c->res->write("hit number ");
-        $c->res->write($count);
-    }
+sleep 1;
 
-    __PACKAGE__->setup;
-}
+$res = $get->('/page');
+ok $res->is_success, 'get page';
+like $res->content, qr/hit number 4/, 'session data restored';
 
-use Test::WWW::Mechanize::Catalyst qw/CookieTestApp/;
+cmp_ok $expired, '<', $cookie{expires}, 'cookie expiration was extended';
+$expired = $cookie{expires};
 
-my $m = Test::WWW::Mechanize::Catalyst->new;
+$res = $get->('/page');
+ok $res->is_success, 'get page';
+like $res->content, qr/hit number 5/, 'session data restored';
 
-$m->get_ok( "http://foo.com/stream", "get page" );
-$m->content_contains( "hit number 1", "session data created" );
+sleep 1;
 
-my $expired;
-$m->cookie_jar->scan( sub { $expired = $_[8] } );
+$res = $get->('/stream');
+ok $res->is_success, 'get stream';
+like $res->content, qr/hit number 6/, 'session data restored';
 
-$m->get_ok( "http://foo.com/page", "get page" );
-$m->content_contains( "hit number 2", "session data restored" );
+cmp_ok $expired, '<', $cookie{expires}, 'streaming also extends cookie';
 
-$m->get_ok( "http://foo.com/stream", "get stream" );
-$m->content_contains( "hit number 3", "session data restored" );
+$res = $get->('/deleteme');
+ok $res->is_success, 'get page';
+is $res->content, '1', 'session id changed';
 
-sleep 2;
+$res = $get->('https://localhost/page');
+ok $res->is_success, 'get page over HTTPS - init session';
+like $res->content, qr/hit number 1/, 'first hit';
 
-$m->get_ok( "http://foo.com/page", "get stream" );
-$m->content_contains( "hit number 4", "session data restored" );
+$res = $get->('http://localhost/page');
+ok $res->is_success, 'get page again over HTTP';
+like $res->content, qr/hit number 1/, 'first hit again - cookie not sent';
 
-my $updated_expired;
-$m->cookie_jar->scan( sub { $updated_expired = $_[8] } );
+$res = $get->('https://localhost/page');
+ok $res->is_success, 'get page over HTTPS';
+like $res->content, qr/hit number 2/, 'second hit';
 
-cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" );
+done_testing;