---
package JSON::Assert;
use Moo;
use MooX::Types::MooseLike::Base 'Str';
use JSON::Path;
use Test::Deep::NoTest;
$JSON::Path::Safe = 0;
our $VERSION = '0.08';
our $VERBOSE = $ENV{JSON_ASSERT_VERB
h) };
if ( $@ ) {
$self->error($@);
return;
}
return 1;
}
sub assert_json_contains {
my $self = _self(\@_);
my ($doc, $jpath_str, $match) = @_;
my $jpath = _p
@_);
my ($doc, $jpath_str, $match) = @_;
$self->_clear_error();
eval { $self->assert_json_contains($doc, $jpath_str, $match) };
if ( $@ ) {
$self->error($@);
return;
---------------------
package Test::JSON::Assert;
use 5.006000;
use strict;
use warnings;
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use JSON::Assert;
our @EXPORT = qw(
is_
unt, $name) = @_;
# create the $json_assert object
my $json_assert = JSON::Assert->new();
# do the test and remember the result
my $is_ok = $json_assert->is_jpath_count($doc, $jpath,
my ($doc, $jpath, $match, $name) = @_;
my $json_assert = JSON::Assert->new();
# do the test and remember the result
my $is_ok = $json_assert->does_jpath_value_match($doc, $jpath, $mat
=head1 CHANGELOG FOR JSON::Assert
=head2 VERSION 0.08, 7 JULY 2017
=over
=item *
Fix missing dep for MooX::Types::MooseLike::Base
=back
=head2 VERSION 0.07, 27 JUNE 2017
=over
=item *
RT #12
06 DECEMBER 2016
=over
=item *
Added does_jpath_contains method to Test::JSON::Assert,
fixed does_jpath_contains in JSON::Assert
=back
=head2 VERSION 0.03, 15 MAY 2015
=over
=item *
Replaced