view release on metacpan or  search on metacpan

t/live_app_session.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

BEGIN {
    eval {
      require Catalyst::Plugin::Session;
      require Catalyst::Plugin::Session::State::Cookie;
    } or do {
      plan skip_all => "This test needs Catalyst::Plugin::Session and Catalyst::Plugin::Session::State::Cookie installed";
    }
}

use lib 't/lib';
use Catalyst::Test qw/AuthSessionTestApp/;
use HTTP::Cookies;
use HTTP::Request::Common qw(GET);

my $jar = HTTP::Cookies->new;
sub _request {
    my $url = shift;
    $url =~ s{^/}{http://localhost/};
    my $req = GET $url;
    $jar->add_cookie_header($req);
    my $res = request($req);
    $jar->extract_cookies($res);
    return $res;
}

my $res;

$res = _request('/moose');
ok +$res->is_success, 'get ok';

$res = _request('/elk');
ok +$res->is_success, 'get ok';

$res = _request('/yak');
ok !$res->is_success, 'Not ok, user unable to be resotred == nasal demons';

foreach my $type (qw/ goat fluffy_bunny possum butterfly /) {
    $res = _request("/$type");
    ok +$res->is_success, "get $type ok";
}

done_testing;