implement 'change_session_expires'

[catagits/Catalyst-Plugin-Session.git] / t / cat_test.t

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use HTTP::Request::Common;

# setup library path
use FindBin qw($Bin);
use lib "$Bin/lib";

use Catalyst::Test 'SessionTestApp';
my ($res, $c);

($res, $c) = ctx_request(POST 'http://localhost/login', [username => 'bob', password => 's00p3r', remember => 1]);
is($res->code, 200, 'succeeded');
my $cookie = $res->header('Set-Cookie');
ok($cookie, 'Have a cookie');

# this checks that cookie persists across a redirect
($res, $c) = ctx_request(GET 'http://localhost/do_redirect', Cookie => $cookie);
is($res->code, 302, 'redirected');
is($res->header('Location'), 'http://localhost/page', 'Redirected after do_redirect');
ok($res->header('Set-Cookie'), 'Cookie is still there after redirect');

done_testing;