view release on metacpan or  search on metacpan

t/sessions/file.t  view on Meta::CPAN

#t/sessions/file.t
use Mojo::Base -strict;
use Test::More;
use Test::Mojo;
use Time::Piece;


my $t = Test::Mojo->new('Ado');
$t->app->config(session => {type => 'file', options => {cookie_name => 'ado_session_file',}});

my $cookie_name = $t->app->config('session')->{options}{cookie_name};
is($cookie_name, 'ado_session_file', '$cookie_name is ado_session_file');

# Create new SID
$t->get_ok('/test', 'created new session ok');
my $sid = $t->tx->res->cookie($cookie_name)->value;
ok $sid, "new sid $sid ok";

$t->get_ok("/");
is $sid, $t->tx->res->cookie($cookie_name)->value, 'Cookie $sid ok';

#default_expiration
$t->get_ok("/");
my $default_expiration = $t->app->sessions->default_expiration;
my $expires            = $t->tx->res->cookie($cookie_name)->expires;
my $equal              = $expires - gmtime(time + $default_expiration)->epoch;

#may differ with one second
ok($equal == 0 || $equal == -1, '$default_expiration is ok');

#session expired
my $old_session_id = $t->tx->res->cookie($cookie_name)->value;
$t->app->sessions->default_expiration(-3);
$t->get_ok('/test', 'expired session');
$expires = $t->tx->res->cookie($cookie_name)->expires;

ok($expires < gmtime(time)->epoch, '$expires is ok');
$t->get_ok("/test");
my $new_session_id = $t->tx->res->cookie($cookie_name)->value;
isnt($old_session_id, $new_session_id, 'new id is different');

done_testing();