The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::Requires;
use Test::More tests => 1;
use HTTP::Session;
use HTTP::Session::State::Cookie;
use HTTP::Session::Store::Test;

# -------------------------------------------------------------------------
# state::cookie

do {
    my $session = HTTP::Session->new(
        state   => HTTP::Session::State::Cookie->new(),
        store   => HTTP::Session::Store::Test->new(
            data => {
                '7e328ddf45df42ca7cc89c88a95fc2af' => { }
            },
        ),
        request => {HTTP_COOKIE => 'http_session_sid=7e328ddf45df42ca7cc89c88a95fc2af; path=/'},
    );
    is $session->session_id, '7e328ddf45df42ca7cc89c88a95fc2af';
};