File Coverage

blib/lib/Test/Mojo/Session.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	4	8	50.0
condition	5	12	41.6
subroutine	9	9	100.0
pod	5	5	100.0
total	69	80	86.2

package Test::Mojo::Session;

use Mojo::Base 'Test::Mojo';
use Mojo::Util qw(b64_decode hmac_sha1_sum);
use Mojo::JSON 'decode_json';

our $VERSION = '1.05';

sub new {
  my $self = shift->SUPER::new(@_);
  return $self;
}

sub session_has {
  my ($self, $p, $desc) = @_;
  $desc //= qq{session has value for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->_test('ok', !!Mojo::JSON::Pointer->new($session)->contains($p), $desc);
}

sub session_hasnt {
  my ($self, $p, $desc) = @_;
  $desc //= qq{session has no value for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->_test('ok', !Mojo::JSON::Pointer->new($session)->contains($p), $desc);
}

sub session_is {
  my ($self, $p, $data, $desc) = @_;
  $desc //= qq{session exact match for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->_test('is_deeply', Mojo::JSON::Pointer->new($session)->get($p), $data, $desc);
}

sub session_ok {
  my $self    = shift;
  my $session = $self->_extract_session;
  return $self->_test('ok', !!$session, 'session ok');
}

sub _extract_session {
  my $self = shift;

  my $app          = $self->app;
  my $session_name = $app->sessions->cookie_name;

  my @cookies = $self->ua->cookie_jar->all;
  @cookies = @{$cookies[0]} if ref $cookies[0] eq 'ARRAY';
  my ($session_cookie) = grep { $_->name eq $session_name } @cookies;
  return unless $session_cookie;

  (my $value = $session_cookie->value) =~ s/--([^\-]+)$//;
  my $sign = $1;

  my $ok;
  for (@{$app->secrets}) {

    if (

      # Mojolicious < 8.13
      $sign eq hmac_sha1_sum($value, $_) ||

      # Mojolicious >= 8.13
      $sign eq hmac_sha1_sum("$session_name=$value", $_)
    ) {
      $ok = 1;
      last;
    }
  }
  return unless $ok;

  my $session = decode_json(b64_decode $value);
  return $session;
}

1;

__END__