File Coverage

blib/lib/Test/Mojo/Session.pm

Criterion	Covered	Total	%
statement	47	48	97.9
branch	2	4	50.0
condition	6	15	40.0
subroutine	12	12	100.0
pod	8	8	100.0
total	75	87	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.07';

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

# Compatibility hack for Mojolicious < 8.36
sub test {
  if (Test::Mojo->can('test')) {
    return shift->SUPER::test(@_);
  }
  return shift->SUPER::_test(@_);
}

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_like {
  my ($self, $p, $regex, $desc) = @_;
  $desc //= qq{session regular expression match for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->test('like', Mojo::JSON::Pointer->new($session)->get($p), qr/$regex/, $desc);
}

sub session_unlike {
  my ($self, $p, $regex, $desc) = @_;
  $desc //= qq{session negated regular expression match for JSON Pointer "$p"};
  my $session = $self->_extract_session;
  return $self->test('unlike', Mojo::JSON::Pointer->new($session)->get($p), qr/$regex/, $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 $sessions = $app->sessions;
  my $c        = $app->build_controller;
  my $name     = $sessions->cookie_name;
  return unless my $cookie = (grep { $_->name eq $name } @{$self->ua->cookie_jar->all})[0];

  $c->req->cookies($cookie);
  $sessions->load($c);
  return $c->session;
}

1;

__END__