File Coverage

blib/lib/Test2/Compare/JSON/Pointer.pm

Criterion	Covered	Total	%
statement	46	52	88.4
branch	11	18	61.1
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	72	85	84.7

package Test2::Compare::JSON::Pointer;

use strict;
use warnings;
use Test2::Util::HashBase qw( pointer input json );
use JSON::Pointer;
use Encode ();
use parent 'Test2::Compare::Base';

# ABSTRACT: Representation of a hash or array reference pointed to by a JSON pointer during deep comparison.
our $VERSION = '0.02'; # VERSION


sub operator { 'JSON PTR' }

sub name
{
  my($self) = @_;
  my($input, $pointer) = ($self->{+INPUT}, $self->{+POINTER});
  $pointer eq '' ? "$input" : "$pointer $input";
}

sub verify
{
  my($self, %params) = @_;
  my($got, $exists) = @params{'got','exists'};

  return 0 unless $exists;
  return 1;
}

sub _convert_got
{
  my(undef, $got) = @_;

  if(ref $got)
  {
    if(eval { $got->isa('Path::Tiny') })
    {
      return $got->slurp_raw;
    }
    elsif(eval { $got->isa('Path::Class::File') })
    {
      return $got->slurp(iomode => '<:unix');
    }
  }

  return Encode::encode("UTF-8", $got);
}

sub deltas
{
  my($self, %p) = @_;
  my($got, $convert) = @p{'got','convert','seen'};

  my $check = $convert->($self->{+INPUT});

  my $got_root_ref = eval {
    $self->{+JSON}->decode($self->_convert_got($got));
  };

  my $pointer = $self->{+POINTER};
  my $id = [ META => $pointer eq '' ? 'JSON' : "JSON $pointer" ];

  if(my $error = "$@")
  {
    my $check = $convert->('valid json');

    $error =~ s/ at \S+ line [0-9]+\.//;
    return $check->delta_class->new(
      verified  => undef,
      id        => $id,
      got       => undef,
      check     => $check,
      exception => "invalid json: $error",
    );
  }

  my $got_ref;
  my $exists;

  if(JSON::Pointer->contains($got_root_ref, $pointer))
  {
    $exists  = 1;
    $got_ref = JSON::Pointer->get($got_root_ref, $pointer);
  }
  else
  {
    $exists = 0;
  }

  my $delta = $check->run(
    id      => $id,
    got     => $got_ref,
    exists  => $exists,
    convert => $convert,
    seen    => {},
  );

  $delta ? $delta : ();
}

1;

__END__