9 use Plack::Session::State::Cookie;
10 use Plack::Session::Store;
13 use t::lib::TestSessionHash;
15 t::lib::TestSessionHash::run_all_tests(
16 store => Plack::Session::Store->new,
17 state => Plack::Session::State::Cookie->new,
20 open my $in, '<', \do { my $d };
22 'psgi.version' => [ 1, 0 ],
24 'psgi.errors' => *STDERR,
25 'psgi.url_scheme' => 'http',
27 REQUEST_METHOD => 'GET',
28 HTTP_COOKIE => join "; " => map { $_ . "=" . $cookies->{ $_ } } keys %$cookies,
31 response_test => sub {
32 my ($res_cb, $session_id, $check_expired) = @_;
36 $cookie = Plack::Util::header_get($res->[1], 'Set-Cookie');
39 like($cookie, qr/plack_session=$session_id/, '... cookie value is as suspected');
41 like($cookie, qr/expires=/, '... cookie is expriring as suspected');