use strict;
use warnings;
use Test::More tests => 2;
use CGI;
use t::Pages;
use t::Request;
use HTTP::Session::State::Cookie;

my $r = t::Request->new(
    in => {
        Host => 'example.com',
        Cookie => '',
    },
    params => { },
);
my $store = HTTP::Session::Store::Test->new(
    data => {
        'deepturtle' => { },
    },
);
my $page = t::Pages->new(
    r => $r,
    store => $store,
    state => HTTP::Session::State::Cookie->new(),
    callback => sub {
        my $self = shift;
        isa_ok $self->session, 'Sledge::HTTPSession::Session';
        $self->redirect('/');
    },
);
$page->dispatch;
is $r->out->{'Location'}, q{http://example.com/};